Select Code to Download

package Foo;

...
    # we can use lexically scoped subs
    $self->$_private();
};

package Foo;

...
    my $self = shift;
    $self->Foo::private::method { ... };
};

sub Foo::MY::method { ... };

...
    my $self = shift;
    $self->MY::method();
};

package MY;

...
    my $method = caller() . "::$AUTOLOAD";
    $self->$method(@_);
};

sub MY::method { ... };

sub MyLongPackageName::MY::method { ... };

package MY;
use strict;
...
FILTER_ONLY code => sub { s/(\w+::)*MY::/${Imported_from}::MY::/gs };

1;

package Foo;
use MY;
...
sub MY::greet_world {
    print "A new Bar has entered the world\n";
};