[Catalyst-commits] r10098 - in trunk/Catalyst-View-TT/lib/Catalyst: Helper/View View

bricas at dev.catalyst.perl.org bricas at dev.catalyst.perl.org
Tue May 12 18:25:32 GMT 2009


Author: bricas
Date: 2009-05-12 18:25:31 +0000 (Tue, 12 May 2009)
New Revision: 10098

Modified:
   trunk/Catalyst-View-TT/lib/Catalyst/Helper/View/TTSite.pm
   trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm
Log:
a few doc fixes

Modified: trunk/Catalyst-View-TT/lib/Catalyst/Helper/View/TTSite.pm
===================================================================
--- trunk/Catalyst-View-TT/lib/Catalyst/Helper/View/TTSite.pm	2009-05-12 17:26:59 UTC (rev 10097)
+++ trunk/Catalyst-View-TT/lib/Catalyst/Helper/View/TTSite.pm	2009-05-12 18:25:31 UTC (rev 10098)
@@ -66,7 +66,7 @@
     
     sub end : Private {
         my ( $self, $c ) = @_;
-        $c->forward('MyApp::V::TT');
+        $c->forward( $c->view('TT') );
     }
 
 =head1 DESCRIPTION

Modified: trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm
===================================================================
--- trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm	2009-05-12 17:26:59 UTC (rev 10097)
+++ trunk/Catalyst-View-TT/lib/Catalyst/View/TT.pm	2009-05-12 18:25:31 UTC (rev 10098)
@@ -51,7 +51,7 @@
         my ( $self, $c ) = @_;
         $c->stash->{template} = 'message.tt2';
         $c->stash->{message}  = 'Hello World!';
-        $c->forward('MyApp::View::TT');
+        $c->forward( $c->view('TT') );
     }
 
 # access variables from template
@@ -283,7 +283,9 @@
     package FooBar::View::TT;
     
     use strict;
-     use base 'Catalyst::View::TT';
+    use warnings;
+    
+    use base 'Catalyst::View::TT';
 
     __PACKAGE__->config->{DEBUG} = 'all';
 
@@ -296,7 +298,7 @@
     
     sub end : Private {
         my( $self, $c ) = @_;
-        $c->forward('MyApp::View::TT');
+        $c->forward( $c->view('TT') );
     }
 
 =head2 CONFIGURATION




More information about the Catalyst-commits mailing list