Sophie

Sophie

distrib > Fedora > 18 > i386 > by-pkgid > a33d845846fb586be2993c6eed227050 > files > 22

perl-MooseX-MethodAttributes-0.28-1.fc18.noarch.rpm

package CatalystLike::Controller::Moose;
use Moose;
use namespace::clean -except => 'meta';
BEGIN { extends qw/CatalystLike::Controller/; }

our $GET_ATTRIBUTE_CALLED = 0;
sub get_attribute : Local { $GET_ATTRIBUTE_CALLED++ }

our $GET_FOO_CALLED = 0;
our $BEFORE_GET_FOO_CALLED = 0;
sub get_foo : Local { $GET_FOO_CALLED++ }
# Exactly the same as last test except for modifier here
before 'get_foo' => sub { $BEFORE_GET_FOO_CALLED++ };

sub other : Local {}

1;