view release on metacpan or  search on metacpan

t/03_zeftest.t  view on Meta::CPAN

sub t3rs($) { [@_] }
sub t3ra(@) { [@_] }
sub t3rn { [@_] }
sub t3as { tail t3rs(@t3l) }
sub t3aa { tail t3ra(@t3l) }
sub t3an { tail t3rn(@t3l) }
is_deeply t3as(), [3];
is_deeply t3aa(), [qw(x y z)];
is_deeply t3an(), [qw(x y z)];

sub t4r(&) { $_[0]->(123) }
sub t4a { tail t4r { [ "x", @_ ] } }
is_deeply t4a(), [ "x", 123 ];

sub t5r { [ "t5r", @_ ] }
sub t5a {
    my $a = $_[0] ? tail(t5r(123)) : 2;
    return $a + 10;
}
is_deeply t5a(0), 12;
is_deeply t5a(1), [ "t5r", 123 ];