File Coverage

_build/lib/MyModuleBuilder.pm

Criterion	Covered	Total	%
statement	3	34	8.8
branch	0	8	0.0
condition	0	3	0.0
subroutine	1	5	20.0
pod	0	2	0.0
total	4	52	7.6

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

        require Cwd;

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

        sub ACTION_build {
            my ($s) = @_;

            # Only for the maintainer on "Build build".
            if ( $^V >= v5.30.0 ) {
                if ( Cwd::cwd() =~ m{ / git / perlmy / [^/]+ $ }x ) {
                    $s->_update_logo_version();
                    $s->_build_readme();
                }
            }

            $s->SUPER::ACTION_build;
        }

        sub _update_logo_version {
            my ($s) = @_;
            print "Updating logo ...\n";

            require lib;
            lib->import("lib");

            require e;
            e->import();

            @ARGV = ( "lib/e.pm" );
            local $^I = "";
            local $\  = "\n";

            while () {
                chomp;

                my $n =
                / unleashed /x ...
                / ^ =head1 \s+ NAME /x;

                next unless $n and $n == 2;

                s/ v \K \S+ /$e::VERSION/xg;
            }
            continue {
                print;
            }
        }

        sub _build_readme {
            my ($s) = @_;
            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";
        }
        #---------------------------------
        #           Install
        #---------------------------------

        sub ACTION_install {
            my ($s) = @_;
            $s->SUPER::ACTION_install;

            # Display logo/image.
            system qq( pod e -q head1=LOGO/Verbatim );
        }

1;