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

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

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

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