use 5.008;
use strict;
use warnings;
package Dist::Zilla::Plugin::Test::Kwalitee;
{
$Dist::Zilla::Plugin::Test::Kwalitee::VERSION = '1.112410';
}
# ABSTRACT: Release tests for kwalitee
use Moose;
use Data::Section -setup;
with 'Dist::Zilla::Role::FileGatherer','Dist::Zilla::Role::TextTemplate';
sub mvp_multivalue_args { return qw( skiptest ) }
has skiptest => (
is => 'ro',
isa => 'ArrayRef[Str]',
traits => [ 'Array' ],
default => sub { [] },
handles => {
push_skiptest => 'push'
},
);
sub gather_files {
my ( $self, ) = @_;
my $skiptests = q{eval "use Test::Kwalitee";};
if ( @{ $self->skiptest } > 0 ) {
my $skip = join ' ', map { "-$_" } @{ $self->skiptest };
$skiptests = qq[eval {
require Test::Kwalitee;
Test::Kwalitee->import( tests => [ qw( $skip ) ]);
};];
}
require Dist::Zilla::File::InMemory;
for my $filename ( qw( xt/release/kwalitee.t ) ) {
my $content = $self->fill_in_string(
${$self->section_data($filename)},
{ skiptests => \$skiptests },
);
$self->add_file(
Dist::Zilla::File::InMemory->new( {
'name' => $filename,
'content' => $content,
} ),
);
}
};
__PACKAGE__->meta->make_immutable;
no Moose;
1;
=pod
=head1 NAME
Dist::Zilla::Plugin::Test::Kwalitee - Release tests for kwalitee
=head1 VERSION
version 1.112410
=for test_synopsis 1;
__END__
=head1 SYNOPSIS
In C<dist.ini>:
[Test::Kwalitee]
skiptest=use_strict ; Don't test for strictness.
=head1 DESCRIPTION
This is an extension of L<Dist::Zilla::Plugin::InlineFiles>, providing the
following file:
xt/release/kwalitee.t - a standard Test::Kwalitee test
=for Pod::Coverage mvp_multivalue_args
gather_files
=head1 AUTHORS
=over 4
=item *
Harley Pig <harleypig@gmail.com>
=item *
Caleb Cushing <xenoterracide@gmail.com>
=item *
Marcel Gruenauer <marcel@cpan.org>
=item *
Kent Fredric <kentfredric@gmail.com>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Alan Young.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
___[ xt/release/kwalitee.t ]___
#!perl
# This test is generated by Dist::Zilla::Plugin::Test::Kwalitee
use strict;
use warnings;
use Test::More; # needed to provide plan.
{{ $skiptests }}
plan skip_all => "Test::Kwalitee required for testing kwalitee" if $@;