#!perl -w
BEGIN {
eval
'use File::Slurp; 1'
;
if
($@) {
plan
skip_all
=>
"File::Slurp needed for testing"
;
exit
0;
};
};
plan
'no_plan'
;
my
$last_version
=
undef
;
sub
check {
return
if
(! m{blib/script/}xms && ! m{\.pm \z}xms);
my
$content
= read_file(
$_
);
return
if
(m{blib/script/}xms &&
$content
!~ m/\A \
my
@version_lines
=
$content
=~ m/ ( [^\n]* \
$VERSION
\s* = [^=] [^\n]* ) /gxms;
if
(
@version_lines
== 0) {
fail(
$_
);
}
for
my
$line
(
@version_lines
) {
$line
=~ s/^\s+//;
$line
=~ s/\s+$//;
if
(!
defined
$last_version
) {
$last_version
=
shift
@version_lines
;
diag
"Checking for $last_version"
;
pass(
$_
);
}
else
{
is(
$line
,
$last_version
,
$_
);
}
}
}
find({
wanted
=> \
&check
,
no_chdir
=> 1},
'blib'
);
if
(!
defined
$last_version
) {
fail(
'Failed to find any files with $VERSION'
);
}