view release on metacpan or  search on metacpan

t/lib/FOO.pm  view on Meta::CPAN

package FOO;
use Data::Dumper;

sub new {
	my $class = shift;
	my $param = shift;
#	print "new called with ".Dumper(\@_) . "from ".caller(0)."\n";
	$self = { key1 => 'Hello there',
              key2 => $param };
	return bless $self => $class;
}

sub bar {
#	print "bar called with ".Dumper(\@_) . "from ".caller(0)."\n";
	my $self = shift;
	return "Bar return string";
}

sub bur {
#	print "bur called with ".Dumper(\@_) . "from ".caller(0)."\n";