Help for this page

Select Code to Download


  1. or download this
    package Foo::Bar;
use vars qw( $VERSION );
...
    print "helper returns ",helper($self),"\n";
}   
1;
  2. or download this
    #!/usr/bin/perl
my $foo = Foo::Bar->new(method => 'helper');
...
Foo::Bar::Object::method: $self = Foo::Bar=SCALAR(0x8205ba4)
Foo::Bar::Object::method: method = helper
helper returns helper
  3. or download this
    package Foo::Bar::_implement;
sub Foo::Bar::new {
...

    $thingy;
}