Help for this page
sub foo { my $arg = shift @_; ... return $cache{$arg} = something_costly( $arg ); }
use Immutable::UntestableCode qw( foo ); ... is( 1, $calls ); foo( 1 ); is( 1, $calls );