Select Code to Download

sub {
    BLAH
}

sub  {
    BLAH
    YOUR CODE HERE
}

sub inject {
    my ( $outer, $inner ) = @_;
...
        goto &$outer;
    }
}

sub uneval {
    my ( $a ) = @_;
    return ( in_current_scope => '$a' );
}

our @cache;
my $id = 0;
...
    $cache[$id++] = $_[0];
    return __PACKAGE__ . '::$cache[' . $id . ']';
}