File Coverage

_build/lib/Module/Build/Deploy.pm
Criterion Covered Total %
statement 3 10 30.0
branch 0 2 0.0
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 15 26.6


line stmt bran cond sub pod time code
1             package Module::Build::Deploy;
2 1     1   631 use Module::Build;
  1         76616  
  1         196  
3             our @ISA = qw(Module::Build);
4             sub ACTION_deploy {
5              
6 0     0 0   require CPAN::Uploader;
7 0           my $self = shift;
8 0           $self->depends_on("dist");
9              
10 0           my $tarball = $self->dist_dir() . '.tar.gz';
11 0 0         die "tarball not found"
12             if (! -e $tarball);
13 0           print "Uploading $tarball\n";
14             CPAN::Uploader->upload_file( $tarball, {
15             user => $ENV{PAUSE_USER},
16             password => $ENV{PAUSE_PASS},
17 0           } );
18             }
19              
20             1;