/usr/share/perl5/Dist/Inkt/Role/Test/Changes.pm is in libdist-inkt-doap-perl 0.022-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 | use 5.010001;
use strict;
use warnings;
package Dist::Inkt::Role::Test::Changes;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION = '0.022';
use Moose::Role;
with qw(
Dist::Inkt::Role::Test
Dist::Inkt::Role::RDFModel
);
after BUILD => sub {
my $self = shift;
$self->setup_prebuild_test(sub {
my $self = shift;
$self->log("Checking DOAP changeset metadata is current");
my $latest_in_meta = $self->doap_project->sorted_releases->[-1];
$latest_in_meta = $latest_in_meta->revision if $latest_in_meta;
if (!defined $latest_in_meta)
{
$self->log("No versions listed in DOAP");
die "Please update DOAP changelog";
}
my $current_version = $self->version;
unless ($self->version eq $latest_in_meta)
{
$self->log("Latest version according to DOAP metadata is $latest_in_meta, but this is $current_version");
die "Please update DOAP changelog";
}
});
};
1;
|