sub {
    BLAH
}

##</code><code>##

sub  {
    BLAH
    YOUR CODE HERE
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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