X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalystX%2FModelToControllerReflector%2FControllerRole.pm;fp=lib%2FCatalystX%2FModelToControllerReflector%2FControllerRole.pm;h=c0296bb4f386e8866de08869b52c3a201f335f57;hb=00b934f167bed6486682e33b0d332343a7c2cec4;hp=63fc26d129f8ef9109dc37e5e56b2cec07054552;hpb=ff05b07e58eb51fa7bd2f371b39311e94f78d757;p=catagits%2FCatalystX-DynamicComponent.git diff --git a/lib/CatalystX/ModelToControllerReflector/ControllerRole.pm b/lib/CatalystX/ModelToControllerReflector/ControllerRole.pm index 63fc26d..c0296bb 100644 --- a/lib/CatalystX/ModelToControllerReflector/ControllerRole.pm +++ b/lib/CatalystX/ModelToControllerReflector/ControllerRole.pm @@ -1,4 +1,4 @@ -package CatalystX::ModelToControllerReflector::ControllerRole; +package CatalystX::ModelToControllerReflector::ControllerRole; use Moose::Role; use Moose::Util qw/find_meta/; use namespace::autoclean; @@ -8,9 +8,9 @@ sub get_reflected_action_methods { my $meta = find_meta($self); return map { $self->_smash_method_attributes($_) } - grep { ! /^(_|new|meta|get_action_methods)$/ } + grep { ! /^(_|new|meta|get_action_methods)$/ } # FIXME - giant turd, right there. - $meta->get_method_list; # we need to apply a role to the + $meta->get_method_list; # we need to apply a role to the # metaclass of each method we generate, # and then test for that role being done # by the method in question here. @@ -31,7 +31,7 @@ sub _smash_method_attributes { around get_action_methods => sub { my $orig = shift; my $self = shift; - + return ($self->get_reflected_action_methods, $self->$orig(@_)); };