/usr/share/perl5/Dist/Inkt/Role/Test/BumpedVersion.pm is in libdist-inkt-role-test-perl 0.002-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | use 5.010001;
use strict;
use warnings;
package Dist::Inkt::Role::Test::BumpedVersion;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION = '0.002';
use Moose::Role;
use Types::Standard -types;
use version 0.86;
use namespace::autoclean;
with qw(Dist::Inkt::Role::Test);
after BUILD => sub {
my $self = shift;
$self->setup_prebuild_test(sub {
require HTTP::Tiny;
require JSON::PP;
my $url = "https://api.metacpan.org/v0/release/".$self->name;
my $res = HTTP::Tiny::->new->get($url);
return $self->log("Could not fetch $url") unless $res->{success};
my $nfo = JSON::PP::->new->decode($res->{content});
my $ver = $nfo->{version}
or return $self->log("Could not find version from $url");
if (version::->parse($ver) >= version::->parse($self->version))
{
$self->log("Already released $ver; this build is ".$self->version);
die("try bumping the version before release");
}
else
{
$self->log("Current version on CPAN is: $ver");
}
});
};
1;
|