#!/usr/bin/env perl
# $Date: 2010-11-13 14:25:12 -0600 (Sat, 13 Nov 2010) $
# $Author: clonezone $
# $Revision: 3990 $
# Taken from
use
5.006;
use
strict;
use
warnings;
our
$VERSION
=
'1.001000'
;
use
File::Find;
use
File::Slurp;
my
$last_version
=
undef
;
find({
wanted
=> \
&check_version
,
no_chdir
=> 1},
'blib'
);
if
(!
defined
$last_version
) {
## no critic (RequireInterpolationOfMetachars)
fail(
'Failed to find any files with $VERSION'
);
## use critic
}
# end if
sub
check_version {
# $_ is the full path to the file
return
if
! m{blib/script/}xms && ! m{ [.] pm \z}xms;
my
$content
= read_file(
$_
);
# only look at perl scripts, not sh scripts
return
if
m{blib/script/}xms &&
$content
!~ m/\A \
#![^\r\n]+?perl/xms;
my
@version_lines
=
$content
=~ m/ ( [^\n]* \
$VERSION
[^\n]* ) /gxms;
if
(
@version_lines
== 0) {
fail(
$_
);
}
# end if
foreach
my
$line
(
@version_lines
) {
if
(!
defined
$last_version
) {
$last_version
=
shift
@version_lines
;
pass(
$_
);
}
else
{
is(
$line
,
$last_version
,
$_
);
}
# end if
}
# end foreach
return
;
}
# end check_version()
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# setup vim: set filetype=perl tabstop=4 softtabstop=4 expandtab :
# setup vim: set shiftwidth=4 shiftround textwidth=78 nowrap autoindent :
# setup vim: set foldmethod=indent foldlevel=0 :