Select Code to Download

sub method2 { my $self = shift; _method1( $self ); }

package Foo;

...

my $foobar = Foo::Bar->new;
$foobar->method2;