Help for this page
package Foo; require Foo::Bar; # load additional methods ... my $val = $self->_bb ( $args->{'foo'} ); } 1;
package Foo; # not Foo::Bar!!! sub _aa { ... ...; } 1;
sub aa { my ( $self, $args ) = @_; require Foo::Bar; my $val = $self->_aa ( $args->{'bar'} ); }
www.com | www.net | www.org
No recent polls found