BEGIN { require 5.008001; }
-our $VERSION = '0.79';
+our $VERSION = '0.81';
$VERSION = eval $VERSION;
sub new {
sub _get_allowed_methods {
my ( $self, $controller, $c, $name ) = @_;
my $class = ref($controller) ? ref($controller) : $controller;
- my $methods = Class::Inspector->methods($class);
- my @allowed;
- foreach my $method ( @{$methods} ) {
- if ( $method =~ /^$name\_(.+)$/ ) {
- push( @allowed, $1 );
- }
- }
- return @allowed;
+ my $methods = Class::Inspector->methods($class);
+ return map { /^$name\_(.+)$/ } @$methods;
};
sub _return_options {