Select Code to Download

$new = sub { return Foo->new(@_) };
run_test( $new );

sub test_package_method {
    my ($package, $method) = @_;
    my $code_ref = sub{ return $package->$method() };
    run_test( $code_ref );
}