X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;h=a46ecb1304cb4728fdb44e80001e6ac3c1f14da5;hp=f18228cbc7b605f1822ea8a2f28163f7df15be94;hb=f3414019f472b55682ef3af53f761b6db7955887;hpb=8c80e4f8ed93daf2d635c0480bdc97adf24e49c1 diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index f18228c..a46ecb1 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -29,7 +29,7 @@ sub global_action : Private { sub execute { my $c = shift; my $class = ref( $c->component( $_[0] ) ) || $_[0]; - my $action = "$_[1]"; + my $action = $_[1]->reverse; my $method; @@ -98,4 +98,4 @@ use strict; use base qw/Catalyst::Base Class::Data::Inheritable/; -1; \ No newline at end of file +1;