File Coverage

_build/lib/Module/Build/Deploy.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	28	28.5

package Module::Build::Deploy;
use Module::Build;
our @ISA = qw(Module::Build);
sub ACTION_deploy {

    require CPAN::Uploader;
    require MetaCPAN::Client;
    use version;

    my $self = shift;
    $self->depends_on("dist");

    # check that this is a newer version
    my $name = $self->dist_name;
    my $mpan = MetaCPAN::Client->new();
    my $existing = $mpan->release($name)->version;
    if (version->parse($existing) >= version->parse($self->dist_version)) {
        warn "This version is <= the version on CPAN, aborting nicely\n";
        return 1;
    }

    my $tarball = $self->dist_dir() . '.tar.gz';
    die "tarball not found"
        if (! -e $tarball);
    print "Uploading $tarball\n";
    CPAN::Uploader->upload_file( $tarball, {
        user     => $ENV{PAUSE_USER},
        password => $ENV{PAUSE_PASS},
    } );
}

1;