inc/GatherDir.pm

   1 package inc::GatherDir;
   2
   3 use Moose;
   4
   5 extends 'Dist::Zilla::Plugin::GatherDir';
   6
   7 around _file_from_filename => sub {
   8     my $orig = shift;
   9     my $self = shift;
  10     my $file = $self->$orig(@_);
  11     return $file if $file->name =~ m+^t/002_recipes/basics_recipe10\.t+;
  12     return ()    if $file->name =~ m+^t/002_recipes+;
  13     return $file;
  14 };
  15
  16 1;