[gitmo/Mouse.git] / t / lib / BaseClass.pm

package BaseClass;
use Mouse;

sub import {
    my $pkg = caller(0);
    Mouse->import({into_level => 1});
    $pkg->meta->add_method('foo' => sub {'bar'});
}

1;
Commit	Line	Data
bfcc8a05	1	package BaseClass;
	2	use Mouse;
	3
	4	sub import {
	5	my $pkg = caller(0);
	6	Mouse->import({into_level => 1});
	7	$pkg->meta->add_method('foo' => sub {'bar'});
	8	}
	9
	10	1;