-package CatalystX::ModelToControllerReflector::ControllerRole;
+package CatalystX::ModelToControllerReflector::ControllerRole;
use Moose::Role;
use Moose::Util qw/find_meta/;
use namespace::autoclean;
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.
around get_action_methods => sub {
my $orig = shift;
my $self = shift;
-
+
return ($self->get_reflected_action_methods, $self->$orig(@_));
};