Select Code to Download

use warnings;
no warnings 'redefine';
use strict;
...
    print One::foo();
}
print One::foo();

package One;

sub foo {
...
    $self->unmock;
}
1;