[p5sagit/p5-mst-13.2.git] / ext / Module-Pluggable / t / lib / MyTest / Extend / Plugin / Bar.pm

package MyTest::Extend::Plugin::Bar;
use strict;

sub new {
	my $class = shift;
	my %self = @_;

	return bless \%self, $class;
}


sub nork {
	return $_[0]->{'nork'};
}
1;
Commit	Line	Data
3f7169a2	1	package MyTest::Extend::Plugin::Bar;
	2	use strict;
	3
	4	sub new {
	5	my $class = shift;
	6	my %self = @_;
	7
	8	return bless \%self, $class;
	9	}
	10
	11
	12	sub nork {
	13	return $_[0]->{'nork'};
	14	}
	15	1;
	16
	17