[Jifty-commit] r3269 - in Template-Declare: lib/Template

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Sun May 20 16:22:17 2007
New Revision: 3269

Modified:
   Template-Declare/   (props changed)
   Template-Declare/lib/Template/Declare.pm

Log:
 r56991 at 232:  jesse | 2007-05-20 15:52:10 -0400
 minor refacotring


Modified: Template-Declare/lib/Template/Declare.pm
==============================================================================
--- Template-Declare/lib/Template/Declare.pm	(original)
+++ Template-Declare/lib/Template/Declare.pm	Sun May 20 16:22:17 2007
@@ -285,6 +285,8 @@
 
 Returns a reference to the template's code if found. Otherwise, returns undef.
 
+This method is an alias for L</resolve_template>
+
 =cut
 
 sub has_template {
@@ -307,6 +309,34 @@
     return undef;
 }
 
+sub _has_aliased_template {
+    my $package       = shift;
+    my $template_name = shift;
+    my $show_private  = shift;
+
+    foreach my $alias_key ( @{ Template::Declare->aliases->{$package} } ) {
+        my $alias_info   = $package->alias_metadata()->{$alias_key};
+        my $alias_prefix = $alias_info->{path};
+        my $alias_class  = $alias_info->{class};
+        my $package_vars = $alias_info->{package_vars};
+
+        $template_name = "/$template_name";
+
+        if ( $template_name =~ m{$alias_prefix/(.*)$} ) {
+            my $dispatch_to_template = $1;
+            if (my $coderef = $alias_class->resolve_template( $dispatch_to_template, $show_private)) {
+
+                return sub {
+                    local $TEMPLATE_VARS->{$alias_class} = $package_vars;
+                    &$coderef($alias_class);
+                };
+            }
+
+        }
+
+    }
+}
+
 =head2 resolve_template TEMPLATE_PATH INCLUDE_PRIVATE_TEMPLATES
 
 Turns a template path (C<TEMPLATE_PATH>) into a C<CODEREF>.  If the
@@ -346,33 +376,6 @@
     }
 }
 
-sub _has_aliased_template {
-    my $package       = shift;
-    my $template_name = shift;
-    my $show_private  = shift;
-
-    foreach my $alias_key ( @{ Template::Declare->aliases->{$package} } ) {
-        my $alias_info   = $package->alias_metadata()->{$alias_key};
-        my $alias_prefix = $alias_info->{path};
-        my $alias_class  = $alias_info->{class};
-        my $package_vars = $alias_info->{package_vars};
-
-        $template_name = "/$template_name";
-
-        if ( $template_name =~ m{$alias_prefix/(.*)$} ) {
-            my $dispatch_to_template = $1;
-            if (my $coderef = $alias_class->resolve_template( $dispatch_to_template, $show_private)) {
-
-                return sub {
-                    local $TEMPLATE_VARS->{$alias_class} = $package_vars;
-                    &$coderef($alias_class);
-                };
-            }
-
-        }
-
-    }
-}
 
 sub _find_template_sub {
     my $self    = shift;