# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-
# vim:ts=8:sw=2:et:sta:sts=2
-package Module::Metadata; # git description: v1.000029-6-gae0d3b6
+package Module::Metadata; # git description: v1.000030-2-g52f466c
# ABSTRACT: Gather package and POD information from perl module files
# Adapted from Perl-licensed code originally distributed with
use strict;
use warnings;
-our $VERSION = '1.000030'; # TRIAL
+our $VERSION = '1.000031'; # TRIAL
use Carp qw/croak/;
use File::Spec;
=head1 VERSION
-version 1.000030
+version 1.000031
=head1 SYNOPSIS
ok(
$test_case->{all_versions}->($pm_info->{versions}),
"case '$test_case->{name}': all extracted versions passes match sub"
- ) or diag 'found versions: ', explain $pm_info->{versions};
+ );
}
else {
is_deeply(
$pm_info->{versions},
$test_case->{all_versions},
'correctly found all $VERSIONs',
- ) or diag 'found versions: ', explain $pm_info->{versions};
+ );
}
}
is( $warnings, '', "case '$test_case->{name}': no warnings from parsing" ) or $errs++;
- diag Dumper({ got => $pm_info->version, module_contents => $code }) if $errs;
+ diag 'extracted versions: ', explain({ got => $pm_info->{versions}, module_contents => $code }) if !$ENV{PERL_CORE} && $errs;
}
}
continue {