[gitmo/Moose.git] / inc / GatherDir.pm

package inc::GatherDir;

use Moose;

extends 'Dist::Zilla::Plugin::GatherDir';

around _file_from_filename => sub {
    my $orig = shift;
    my $self = shift;
    my $file = $self->$orig(@_);
    return $file if $file->name =~ m+^t/recipes/basics_recipe10\.t+;
    return ()    if $file->name =~ m+^t/recipes+;
    return $file;
};

1;
Commit	Line	Data
a83cf79c	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(@_);
5d9b3480	11	return $file if $file->name =~ m+^t/recipes/basics_recipe10\.t+;
5d9b3480	12	return () if $file->name =~ m+^t/recipes+;
a83cf79c	13	return $file;
	14	};
	15
	16	1;