Class-Hook

 view release on metacpan or  search on metacpan

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
package FOO;
 
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 )