Select Code to Download

my $private_method = sub {
    my ($self) = @_;
...
};

$self->$private_method();

{
    my $very_private_method = sub {
...

# But this is a compile error under "use strict 'vars'"
$self->$very_private_method();