Select Code to Download

sub mock {
    my $thing = shift;
...
    *One::foo = sub { $closure_self->{x} = 'x'; return "baz\n"; };
    return $self;
}

foo
baz
destroying...
foo

print One::foo();
{
...
    print One::foo();
}
print One::foo();

foo
Use of uninitialized value in subroutine dereference at script.pl line
+ 31.
...
baz
baz
    (in cleanup) Unable to create sub named "" at script.pl line 31.