[Catalyst-commits] r9013 - in trunk/Catalyst-Plugin-ConfigLoader: . lib/Catalyst/Plugin t/lib t/lib/TestApp/Controller

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2009-01-05 19:10:32 +0000 (Mon, 05 Jan 2009)
New Revision: 9013

Modified:
   trunk/Catalyst-Plugin-ConfigLoader/Changes
   trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm
   trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp.pm
   trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp/Controller/Config.pm
Log:
test updates

Modified: trunk/Catalyst-Plugin-ConfigLoader/Changes
===================================================================
--- trunk/Catalyst-Plugin-ConfigLoader/Changes	2009-01-05 18:54:53 UTC (rev 9012)
+++ trunk/Catalyst-Plugin-ConfigLoader/Changes	2009-01-05 19:10:32 UTC (rev 9013)
@@ -1,6 +1,6 @@
 Revision history for Perl extension Catalyst::Plugin::ConfigLoader.
 
-0.22  XXX
+0.22  Mon Jan 05 2009
     - add a cookbook entry re: UTF-8 and Config::General (Octavian Rasnita)
     - switch from NEXT to MRO::Compat
 

Modified: trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm
===================================================================
--- trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm	2009-01-05 18:54:53 UTC (rev 9012)
+++ trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm	2009-01-05 19:10:32 UTC (rev 9013)
@@ -331,7 +331,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2008 by Brian Cassidy
+Copyright 2006-2009 by Brian Cassidy
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself. 

Modified: trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp/Controller/Config.pm
===================================================================
--- trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp/Controller/Config.pm	2009-01-05 18:54:53 UTC (rev 9012)
+++ trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp/Controller/Config.pm	2009-01-05 19:10:32 UTC (rev 9013)
@@ -10,4 +10,9 @@
     $c->res->output( $self->{ foo } );
 }
 
+sub appconfig : Global {
+    my ( $self, $c, $var ) = @_;
+    $c->res->body( $c->config->{ $var } );
+}
+
 1;

Modified: trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp.pm
===================================================================
--- trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp.pm	2009-01-05 18:54:53 UTC (rev 9012)
+++ trunk/Catalyst-Plugin-ConfigLoader/t/lib/TestApp.pm	2009-01-05 19:10:32 UTC (rev 9013)
@@ -3,8 +3,6 @@
 use strict;
 use warnings;
 
-use MRO::Compat;
-
 use Catalyst qw/ConfigLoader/;
 
 our $VERSION = '0.01';
@@ -14,12 +12,7 @@
 sub finalize_config {
     my $c = shift;
     $c->config( foo => 'bar' );
-    $c->next::method();
+    $c->next::method( @_ );
 }
 
-sub appconfig : Local {
-    my ( $self, $c, $var ) = @_;
-    $c->res->body( $c->config->{ $var } );
-}
-
 1;