[Catalyst-commits] r11891 - in Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib: . Catalyst

zby at dev.catalyst.perl.org zby at dev.catalyst.perl.org
Wed Nov 18 21:35:02 GMT 2009


Author: zby
Date: 2009-11-18 21:35:02 +0000 (Wed, 18 Nov 2009)
New Revision: 11891

Modified:
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst.pm
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Dispatcher.pm
Log:
formatting fixed; pod for view and model methods in Catalyst.pm

Modified: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Dispatcher.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Dispatcher.pm	2009-11-18 21:32:02 UTC (rev 11890)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Dispatcher.pm	2009-11-18 21:35:02 UTC (rev 11891)
@@ -323,18 +323,15 @@
         my $possible_action = $c->application->action_for($method); 
         return $possible_action if $possible_action; 
         if( my $code = $c->application->can($method) ){ 
-  return $self->_method_action_class->new( 
-  { 
-  name => $method, 
-  code => $code, 
-  reverse => "$component_or_class->$method", 
-  class => $component_or_class, 
-  namespace => Catalyst::Utils::class2prefix( 
-  $component_or_class
-  ), 
-  } 
-  ); 
-  } 
+            return $self->_method_action_class->new( { 
+                    name => $method, 
+                    code => $code, 
+                    reverse => "$component_or_class->$method", 
+                    class => $component_or_class, 
+                    namespace => Catalyst::Utils::class2prefix( $component_or_class ), 
+                } 
+            ); 
+        } 
     } 
     my $component = $self->_find_component($c, $component_or_class);
     my $component_class = blessed $component || return 0;

Modified: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst.pm	2009-11-18 21:32:02 UTC (rev 11890)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst.pm	2009-11-18 21:35:02 UTC (rev 11891)
@@ -291,6 +291,12 @@
     return $c->component( $c->action->class );
 }
 
+=head2 $c->view($name)
+
+Gets a L<Catalyst::View> instance by name.
+
+=cut
+
 sub view {
     my ( $c, $name, @args ) = @_;
 
@@ -315,6 +321,12 @@
     return $c->_filter_component( $comp );
 }
 
+=head2 $c->model($name)
+
+Gets a L<Catalyst::Model> instance by name.
+
+=cut
+
 sub model {
     my ( $c, $name, @args ) = @_;
     if( $name ) {




More information about the Catalyst-commits mailing list