The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

# ---------------------------------------------------------------------- copyright and license ---
#
# file: t/lib/TemplatesTester.pm
#
# Copyright © 2015, 2016, 2018 Van de Bugger.
#
# This file is part of perl-Dist-Zilla-Plugin-Templates.
#
# perl-Dist-Zilla-Plugin-Templates is free software: you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# perl-Dist-Zilla-Plugin-Templates is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# perl-Dist-Zilla-Plugin-Templates. If not, see <http://www.gnu.org/licenses/>.
#
# SPDX-License-Identifier: GPL-3.0-or-later
#
# ---------------------------------------------------------------------- copyright and license ---
# The test is written using `Moose`-based `Test::Routine`. It is not big deal, because we are
# testing plugin for `Dist::Zilla`, and `Dist-Zilla` is also `Moose`-based.
my $Plugin = 'Templates';
has options => (
isa => 'HashRef',
is => 'ro',
default => sub { {} },
);
sub _build_plugins {
my ( $self ) = @_;
return [
'GatherDir', ## REQUIRE: Dist::Zilla::Plugin::GatherDir
[ $Plugin => $self->options ],
];
};
sub _build_message_filter {
return sub {
map(
{ ( my $r = $_ ) =~ s{^\[[^\[\]]*\] }{}; $r; }
grep( { $_ =~ m{^\Q[$Plugin]\E } } @_ )
);
};
};
1;
# end of file #