Select Code to Download

sub foo {
    my $arg = shift @_;
...

    return $cache{$arg} = something_costly( $arg );
}

use Immutable::UntestableCode qw( foo );

...
is( 1, $calls );
foo( 1 );
is( 1, $calls );