File Coverage

_build/lib/Module/Build/Capo.pm

Criterion	Covered	Total	%
statement	6	29	20.6
branch			n/a
condition	0	4	0.0
subroutine	2	6	33.3
pod	0	4	0.0
total	8	43	18.6

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

    use ExtUtils::Install qw();

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


      # be sure we make RELEASE_TESTING=1 on Build dist
      {
	  local $ENV{RELEASE_TESTING} = 1;
	  $self->dispatch('test');
      }

      $self->SUPER::ACTION_dist;
    }

    sub ACTION_install {
        my $self = shift;

        my $target = $self->destdir || $self->install_base || '/tmp';

        my %my_install_map =
          map { $_ => "$target/$_" } @{ $self->notes('dirs') };

	# 'read' key needed by newer versions of ExtUtils::install
	# set it with dummy value to silence warnings
        $my_install_map{read} = '';

        ExtUtils::Install::install( \%my_install_map, $self->verbose, 0);
    }

    sub ACTION_fakeinstall {
        my $self = shift;

        my $target = $self->destdir || $self->install_base || '/tmp';

        my %my_install_map =
          map { $_ => "$target/$_" } @{ $self->notes('dirs') };

	# 'read' key needed by newer versions of ExtUtils::install
	# set it with dummy value to silence warnings
        $my_install_map{read} = '';

        ExtUtils::Install::install( \%my_install_map, !$self->quiet, 1);
    }

    sub ACTION_uulmfiles {
        my $self = shift;

        my $src = $self->current_action;

        my $target =
          $self->dist_name . '-' . $src . '-' . $self->dist_version;

        $self->make_tarball( $src, $target );
    }


1;