File Coverage

blib/lib/Dist/Zilla/Plugin/SurgicalPkgVersion.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	10	100.0

package Dist::Zilla::Plugin::SurgicalPkgVersion;
BEGIN {
  $Dist::Zilla::Plugin::SurgicalPkgVersion::VERSION = '0.0019';
}
# ABSTRACT: Surgically apply PkgVersion


use Moose;
extends qw/ Dist::Zilla::Plugin::PkgVersion /;

require Dist::Zilla::PluginBundle::ROKR;

around munge_perl => sub {
    my $inner = shift;
    my ( $self, $file ) = @_;

    my $content = $file->content;

    my $yes = 0;
    if ( my $hint = Dist::Zilla::PluginBundle::ROKR->parse_hint( $content ) ) {
        if ( exists $hint->{PkgVersion} ) {
            return unless $hint->{PkgVersion};
            $yes = 1;
        }
    }

    if ( $yes || $content =~ m/^\s*#+\s*(?:ABSTRACT):\s*(.+)$/m ) { }
    else { return }

    return $inner->( @_ )
};

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

__END__
=pod

=head1 NAME

Dist::Zilla::Plugin::SurgicalPkgVersion - Surgically apply PkgVersion

=head1 VERSION

version 0.0019

=head1 SYNOPSIS

In your L<Dist::Zilla> C<dist.ini>:

    [SurgicalPkgVersion]

To hint that you want to apply PkgVersion:

    package Xyzzy;
    # Dist::Zilla: +PkgVersion

    ...

=head1 DESCRIPTION

Dist::Zilla::Plugin::SurgicalPkgVersion will only PkgVersion a .pm if:

    1. There exists an # ABSTRACT: ...
    2. The +PkgVersion hint is present

You can forcefully disable PkgVersion on a .pm by using the C<-PkgVersion> hint

=head1 AUTHOR

Robert Krimen <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Robert Krimen.

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