Class-Hook
view release on metacpan or search on metacpan
t/lib/FOO.pm view on Meta::CPAN
1234567891011121314151617181920package
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";
( run in 0.233 second using v1.01-cache-2.11-cpan-1dc43b0fbd2 )