Help for this page
sub foo { my ($self, $data) = @_; $self->{bar} = _some_function($data); }
sub _some_function { my ( $self, $data ) = @_; return ParentClass::_some_function($data); }
#!/usr/bin/perl -w use strict; ... my $o2 = Bar->new; $o2->foobared; print $o2->{foo};
3 Bar=HASH(0xa065cc8)
www.com | www.net | www.org
No recent polls found