Select Code to Download

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

package One;

...
    $self->unmock;
}
1;

        my $count;

...
                ? $self->{return}[0]
                : @{ $self->{return} };
        };