[Catalyst-commits] r12152 - in Catalyst-Action-RenderView/trunk: . lib/Catalyst/Action t/lib t/lib/TestApp t/lib/TestApp/Controller

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Thu Dec 3 03:11:52 GMT 2009


Author: t0m
Date: 2009-12-03 03:11:51 +0000 (Thu, 03 Dec 2009)
New Revision: 12152

Added:
   Catalyst-Action-RenderView/trunk/t/lib/TestApp/Controller/
   Catalyst-Action-RenderView/trunk/t/lib/TestApp/Controller/Root.pm
Modified:
   Catalyst-Action-RenderView/trunk/
   Catalyst-Action-RenderView/trunk/Changes
   Catalyst-Action-RenderView/trunk/Makefile.PL
   Catalyst-Action-RenderView/trunk/lib/Catalyst/Action/RenderView.pm
   Catalyst-Action-RenderView/trunk/t/lib/TestApp.pm
Log:
Tidy up test app to not warn everywhere


Property changes on: Catalyst-Action-RenderView/trunk
___________________________________________________________________
Name: svn:ignore
   + META.yml
pm_to_blib
blib
inc
Makefile
README
MANIFEST
Makefile.old
MANIFEST.bak
Catalyst-Action-RenderView-*



Modified: Catalyst-Action-RenderView/trunk/Changes
===================================================================
--- Catalyst-Action-RenderView/trunk/Changes	2009-12-02 21:52:21 UTC (rev 12151)
+++ Catalyst-Action-RenderView/trunk/Changes	2009-12-03 03:11:51 UTC (rev 12152)
@@ -1,3 +1,6 @@
+0.14 2009-12-03 03:13:23 GMT
+    - Remove warnings from tests about actions in the app root
+
 0.13 2009-10-24 04:48:03 PDT
     - Re-release 0.12 without changes for reindexing by CPAN/PAUSE.
 

Modified: Catalyst-Action-RenderView/trunk/Makefile.PL
===================================================================
--- Catalyst-Action-RenderView/trunk/Makefile.PL	2009-12-02 21:52:21 UTC (rev 12151)
+++ Catalyst-Action-RenderView/trunk/Makefile.PL	2009-12-03 03:11:51 UTC (rev 12152)
@@ -1,7 +1,10 @@
-use inc::Module::Install 0.87;
+use strict;
+use warnings;
+use inc::Module::Install 0.91;
 
-if ( -e 'MANIFEST.SKIP' ) {
-    system( 'pod2text lib/Catalyst/Action/RenderView.pm > README' );
+if ( $Module::Install::AUTHOR ) {
+    system( 'pod2text lib/Catalyst/Action/RenderView.pm > README' )
+        and die $!;
 }
 
 name 'Catalyst-Action-RenderView';

Modified: Catalyst-Action-RenderView/trunk/lib/Catalyst/Action/RenderView.pm
===================================================================
--- Catalyst-Action-RenderView/trunk/lib/Catalyst/Action/RenderView.pm	2009-12-02 21:52:21 UTC (rev 12151)
+++ Catalyst-Action-RenderView/trunk/lib/Catalyst/Action/RenderView.pm	2009-12-03 03:11:51 UTC (rev 12152)
@@ -3,13 +3,12 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 
 use base 'Catalyst::Action';
 
 use MRO::Compat;
 use Data::Visitor::Callback;
-use UNIVERSAL qw/can/;
 
 my %ignore_classes = ();
 

Added: Catalyst-Action-RenderView/trunk/t/lib/TestApp/Controller/Root.pm
===================================================================
--- Catalyst-Action-RenderView/trunk/t/lib/TestApp/Controller/Root.pm	                        (rev 0)
+++ Catalyst-Action-RenderView/trunk/t/lib/TestApp/Controller/Root.pm	2009-12-03 03:11:51 UTC (rev 12152)
@@ -0,0 +1,28 @@
+package TestApp::Controller::Root;
+use strict;
+use warnings;
+
+use base qw/Catalyst::Controller/;
+
+__PACKAGE__->config( namespace => '' );
+
+sub test_view : Global {
+    my( $self, $c ) = @_;
+    $c->config->{ view } = 'TestApp::View::TestView';
+    return 1;
+}
+
+sub test_firstview : Global {
+    my( $self, $c ) = @_;
+    delete $c->config->{ view };
+    return 1;
+}
+
+sub test_skipview : Global {
+    my( $self, $c ) = @_;
+    $c->res->body( 'Skipped View' );
+}
+
+sub end : ActionClass('RenderView') {}
+
+1;

Modified: Catalyst-Action-RenderView/trunk/t/lib/TestApp.pm
===================================================================
--- Catalyst-Action-RenderView/trunk/t/lib/TestApp.pm	2009-12-02 21:52:21 UTC (rev 12151)
+++ Catalyst-Action-RenderView/trunk/t/lib/TestApp.pm	2009-12-03 03:11:51 UTC (rev 12152)
@@ -1,31 +1,12 @@
 package TestApp;
-
 use strict;
+use warnings;
 use Catalyst;
 
-our $VERSION = '0.01';
+use base qw/Catalyst/;
 
-TestApp->config( name => 'TestApp', root => '/some/dir' );
+__PACKAGE__->config( name => 'TestApp', root => '/some/dir' );
 
-TestApp->setup;
+__PACKAGE__->setup;
 
-sub test_view : Global {
-    my( $self, $c ) = @_;
-    $c->config->{ view } = 'TestApp::View::TestView';
-    return 1;
-}
-
-sub test_firstview : Global {
-    my( $self, $c ) = @_;
-    delete $c->config->{ view };
-    return 1;
-}
-
-sub test_skipview : Global {
-    my( $self, $c ) = @_;
-    $c->res->body( 'Skipped View' );
-}
-
-sub end : ActionClass('RenderView') {}
-
 1;




More information about the Catalyst-commits mailing list