my
$requires
=
undef
;
if
(
open
(PREREQS, File::Spec->catfile(
'_build'
,
'prereqs'
))) {
my
$prereqs
=
eval
do
{
local
$/; <PREREQS> };
$requires
=
$prereqs
->{requires};
}
elsif
( -f
'META.yml'
) {
eval
<<'YAML'
use YAML;
my $prereqs = YAML::LoadFile('META.yml');
$requires = $prereqs->{requires};
YAML
}
if
(
defined
$requires
) {
no
strict
'refs'
;
diag(
"Checking required modules"
);
for
my
$prereq
(
keys
%$requires
) {
eval
"use $prereq"
;
if
($@) {
diag(
" *** $prereq not found ***"
)
}
else
{
diag(
" - using $prereq "
.(
$prereq
->VERSION || ${
"${prereq}::VERSION"
} ||
''
))
}
}
}
ok(1);