/ 
Path-Extended-Tiny-0.08
River stage one • 1 direct dependent • 1 total dependent
/ t/30_directory/prune.t

subtest 'prune_by_regex' => sub { my @expected = qw( prune prune/.ignore prune/dir prune/file prune/dir/.dotfile prune/dir/file );

_prune_test(qr/^\.dot$/, @expected);
};

subtest 'prune_by_code' => sub { my @expected = qw( prune prune/.dot prune/.ignore prune/file prune/.dot/.dotfile prune/.dot/file );

_prune_test(sub { return shift->basename eq 'dir' ? 1 : 0 }, @expected);
};