[catagits/Catalyst-Runtime.git] / t / lib / ScriptTestApp / TraitFor / Script / Foo.pm

package ScriptTestApp::TraitFor::Script::Foo;
use Moose::Role;
use namespace::clean -except => [ 'meta' ];

around run => sub {
    my ($orig, $self, @args) = @_;
    return $self->$orig(@args) . '42';
};

1;
Commit	Line	Data
7f2e015b	1	package ScriptTestApp::TraitFor::Script::Foo;
7f2e015b	2	use Moose::Role;
eefc03e1	3	use namespace::clean -except => [ 'meta' ];
7f2e015b	4
	5	around run => sub {
	6	my ($orig, $self, @args) = @_;
	7	return $self->$orig(@args) . '42';
	8	};
	9
	10	1;