File Coverage

blib/lib/Dist/Zilla/Plugin/Test/Portability.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	43	45	95.5

use strict;
use warnings;

package Dist::Zilla::Plugin::Test::Portability; # git description: v2.000007-18-g926f8c4
# ABSTRACT: Author tests for portability

our $VERSION = '2.001000';

use Moose;
with qw/
    Dist::Zilla::Role::FileGatherer
    Dist::Zilla::Role::FileInjector
    Dist::Zilla::Role::PrereqSource
    Dist::Zilla::Role::TextTemplate
/;
use Dist::Zilla::File::InMemory;
use Data::Section -setup;

has options => (
  is      => 'ro',
  isa     => 'Str',
  default => '',
);

around dump_config => sub
{
    my ($orig, $self) = @_;
    my $config = $self->$orig;

    $config->{+__PACKAGE__} = {
        options => $self->options,
        blessed($self) ne __PACKAGE__ ? ( version => $VERSION ) : (),
    };
    return $config;
};

sub register_prereqs {
    my ($self) = @_;

    $self->zilla->register_prereqs({
            phase => 'develop',
            type  => 'requires',
        },
        'Test::More' => 0,
        'Test::Portability::Files' => '0',
    );

    return;
}

sub gather_files {
    my $self = shift;

    # 'name => val, name=val'
    my %options = split(/\W+/, $self->options);

    my $opts = '';
    if (%options) {
        $opts = join ', ', map { "$_ => $options{$_}" } sort keys %options;
        $opts = "options($opts);";
    }

    my $filename = 'xt/author/portability.t';
    my $filled_content = $self->fill_in_string(
        ${ $self->section_data($filename) },
        { opts => $opts },
    );
    $self->add_file(
        Dist::Zilla::File::InMemory->new({
            name => $filename,
            content => $filled_content,
        })
    );

    return;
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;

#pod =pod
#pod
#pod =begin :prelude
#pod
#pod =for test_synopsis BEGIN { die "SKIP: synopsis isn't perl code" }
#pod
#pod =end :prelude
#pod
#pod =head1 SYNOPSIS
#pod
#pod In your F<dist.ini>:
#pod
#pod     [Test::Portability]
#pod     ; you can optionally specify test options
#pod     options = test_dos_length = 1, use_file_find = 0
#pod
#pod =cut

#pod =head1 DESCRIPTION
#pod
#pod This is an extension of L<Dist::Zilla::Plugin::InlineFiles>, providing the
#pod following file:
#pod
#pod   xt/author/portability.t - a standard Test::Portability::Files test
#pod
#pod You can set options for the tests in the 'options' attribute:
#pod Specify C<< name = value >> separated by commas.
#pod
#pod See L<Test::Portability::Files/options> for possible options.
#pod
#pod =cut

#pod =for Pod::Coverage register_prereqs
#pod
#pod =cut

#pod =head2 munge_file
#pod
#pod Inserts the given options into the generated test file.
#pod
#pod =for Pod::Coverage gather_files
#pod
#pod =cut

=pod

=encoding UTF-8

=head1 NAME

Dist::Zilla::Plugin::Test::Portability - Author tests for portability

=head1 VERSION

version 2.001000

=for test_synopsis BEGIN { die "SKIP: synopsis isn't perl code" }

=head1 SYNOPSIS

In your F<dist.ini>:

    [Test::Portability]
    ; you can optionally specify test options
    options = test_dos_length = 1, use_file_find = 0

=head1 DESCRIPTION

This is an extension of L<Dist::Zilla::Plugin::InlineFiles>, providing the
following file:

  xt/author/portability.t - a standard Test::Portability::Files test

You can set options for the tests in the 'options' attribute:
Specify C<< name = value >> separated by commas.

See L<Test::Portability::Files/options> for possible options.

=for Pod::Coverage register_prereqs

=head2 munge_file

Inserts the given options into the generated test file.

=for Pod::Coverage gather_files

=head1 SUPPORT

Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Dist-Zilla-Plugin-Test-Portability>
(or L<[e-mail]|mailto:[e-mail]>).

=head1 AUTHORS

=over 4

=item *

Marcel Gruenauer <[e-mail]>

=item *

Randy Stauner <[e-mail]>

=item *

Mike Doherty <[e-mail]>

=back

=head1 CONTRIBUTORS

=for stopwords Karen Etheridge Marcel Gruenauer Mike Doherty Randy Stauner Kent Fredric Peter Vereshagin Dave Rolsky

=over 4

=item *

Karen Etheridge <[e-mail]>

=item *

Marcel Gruenauer <[e-mail]>

=item *

Mike Doherty <[e-mail]>

=item *

Mike Doherty <[e-mail]>

=item *

Randy Stauner <[e-mail]>

=item *

Kent Fredric <[e-mail]>

=item *

Peter Vereshagin <[e-mail]>

=item *

Dave Rolsky <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Karen Etheridge.

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/author/portability.t ]___
use strict;
use warnings;

use Test::More;

eval 'use Test::Portability::Files';
plan skip_all => 'Test::Portability::Files required for testing portability'
    if $@;
{{$opts}}
run_tests();