File Coverage

_build/lib/MyModuleBuilder.pm

Criterion	Covered	Total	%
statement	14	39	35.9
branch	0	10	0.0
condition	1	9	11.1
subroutine	5	10	50.0
pod	0	4	0.0
total	20	72	27.7

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

        use Perl::OSType qw(os_type);
        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";
        }

        #---------------------------------
        #            Install
        #---------------------------------

        sub ACTION_install {
            my ($s) = @_;
            $s->_clear_cache;
            $s->_check_for_source_command if os_type eq "Unix";
            $s->SUPER::ACTION_install;
        }
        sub ACTION_clean {
            my ($s) = @_;
            $s->_clear_cache;
            $s->SUPER::ACTION_clean;
        }
        sub ACTION_test {
            my ($s) = @_;
            $s->_clear_cache;
            $s->SUPER::ACTION_test;
        }

        sub _clear_cache {
            my $home = $ENV{HOME} // $ENV{USERPROFILE} // $ENV{LOGDIR};
            for ( glob qq("$home/.cache/my_pod*.cache") ) {
                print "Removing: $_\n";
                unlink or warn $!;
            }
        }
        sub _check_for_source_command {
            my $file = "bash_completion_pod";
            my $path = qx(which $file);
            chomp $path;
            if ( not $ENV{MY_POD_CACHE} and $path ) {
                print <

Add this to your bashrc file (or compatible):

    [ "\$(which $file)" != "" ] && source $file

Or this one (if $file is not in your PATH):

    [ -f "$path" ] && source $path

ECHO
            }
        }

1;