bar.pm

来自「source of perl for linux application,」· PM 代码 · 共 18 行

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

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

	return bless \%self, $class;
}


sub nork {
	return $_[0]->{'nork'};
}
1;