[Catalyst-commits] r13586 - in Catalyst-Plugin-Authentication/0.10000/branches/moose: lib/Catalyst/Authentication lib/Catalyst/Plugin t/author

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-09-10 00:10:15 +0100 (Fri, 10 Sep 2010)
New Revision: 13586

Modified:
   Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Authentication/User.pm
   Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Plugin/Authentication.pm
   Catalyst-Plugin-Authentication/0.10000/branches/moose/t/author/pod_coverage.t
Log:
Fix all the tests after merge

Modified: Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Authentication/User.pm
===================================================================
--- Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Authentication/User.pm	2010-09-09 22:56:54 UTC (rev 13585)
+++ Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Authentication/User.pm	2010-09-09 23:10:15 UTC (rev 13586)
@@ -72,6 +72,8 @@
     my $self = shift;
     (my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
     return if $method eq "DESTROY";
+    $self->get_object->$method(@_);
+}
 
 __PACKAGE__->meta->make_immutable;
 __PACKAGE__;

Modified: Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Plugin/Authentication.pm
===================================================================
--- Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Plugin/Authentication.pm	2010-09-09 22:56:54 UTC (rev 13585)
+++ Catalyst-Plugin-Authentication/0.10000/branches/moose/lib/Catalyst/Plugin/Authentication.pm	2010-09-09 23:10:15 UTC (rev 13586)
@@ -1,5 +1,5 @@
 package Catalyst::Plugin::Authentication;
-use Moose::Role;
+use Moose;
 use MRO::Compat;
 use Tie::RefHash;
 use Class::Inspector;
@@ -192,12 +192,13 @@
 
 # We can't actually do our setup in setup because the model has not yet been loaded.  
 # So we have to trigger before 'setup_finalize'.
-before 'setup_finalize' => sub {
+sub setup {
     my $app = shift;
 
     $app->mk_classdata('_auth_initialized');
     $app->_authentication_initialize();
-};
+    $app->next::method(@_);
+}
 
 ## the actual initialization routine. whee.
 sub _authentication_initialize {

Modified: Catalyst-Plugin-Authentication/0.10000/branches/moose/t/author/pod_coverage.t
===================================================================
--- Catalyst-Plugin-Authentication/0.10000/branches/moose/t/author/pod_coverage.t	2010-09-09 22:56:54 UTC (rev 13585)
+++ Catalyst-Plugin-Authentication/0.10000/branches/moose/t/author/pod_coverage.t	2010-09-09 23:10:15 UTC (rev 13586)
@@ -4,4 +4,4 @@
 plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
 plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
 
-all_pod_coverage_ok();
+all_pod_coverage_ok( { also_private => [ qr/^BUILD(ARGS)?$/ ] } );