1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/env perl
use v5.014;
use Path::Tiny;
use Path::Iterator::Rule;
use constant LIB_DIR => path(path(__FILE__)->absolute->dirname)->parent->child('lib');
use constant TEST_DIR => path(path(__FILE__)->absolute->dirname)->parent->child('t/20-modules');
my $rule = Path::Iterator::Rule->new->file->perl_module;
my $iter = $rule->iter( LIB_DIR );
while (my $file = $iter->())
{
my $module = path($file)->relative(LIB_DIR);
$module =~ s{.pm$}{};
$module =~ s{/}{::}g;
TEST_DIR->child($module =~ s/::/-/gr)->exists
or ($module =~ /^Types::Standard::/) # helper module
or say $module;
}
|
