File Coverage

_build/lib/MyModuleBuilder.pm

Criterion	Covered	Total	%
statement	6	17	35.2
branch	0	4	0.0
condition			n/a
subroutine	2	4	50.0
pod	0	1	0.0
total	8	26	30.7

package MyModuleBuilder;
use Module::Build;
our @ISA = qw(Module::Build);

        use Cwd qw( cwd );

        #---------------------------------
        #            Build
        #---------------------------------

        sub ACTION_build {
            my ($s) = @_;
            $s->_readme();
            $s->SUPER::ACTION_build;
        }

        # Only for the maintainer on "Build build".
        sub _readme {
            my ($s) = @_;
            return if cwd() !~ m{ / git / perlmy / [^/]+ $ }x;

            my ($installed) =
                grep { -x "$_/pod2markdown" }
                split /:/, $ENV{PATH};
            return if !$installed;

            print "Building README\n";
            my $lib = $s->{properties}{dist_version_from};
            system "pod2markdown $lib > README.md";
        }


1;