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

package ScriptTestApp::TraitFor::Script;
use Moose::Role;
use namespace::autoclean;

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

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