view release on metacpan or  search on metacpan

t/Dist.t  view on Meta::CPAN

    My-Dist-0.10/Dist.pm
    My-Dist-0.10/Other/Dist.pm
    My-Dist-0.10/Makefile.pm
    My-Dist-0.10/Makefile/Create.pm
));

for my $file (@wanted) {
    ok ( $dist->want($file),    "want ($file)" );
}

my @not_wanted = (qw(
    My-Dist-0.10/Makefile.PL
    My-Dist-0.10/Makefile
    My-Dist-0.10/blib/My/Dist.pm
    My-Dist-0.10/inc/BUNDLES/Other-Dist/Dist.pm
    My-Dist-0.10/inc/Module/Install.pm
    My-Dist-0.10/Changes
    My-Dist-0.10/MANIFEST
    My-Dist-0.10/META.yml
    My-Dist-0.10/setup.exe
    My-Dist-0.10/eg/eg.pl
    My-Dist-0.10/t/config.pl
    My-Dist-0.10/t/my_test.pm
));

for my $file (@not_wanted) {
    ok ( !$dist->want($file),    "not want ($file)" );
}