our
$success
= 0;
END {
$success
&& done_testing; }
my
$v
=
"\n"
;
eval
{
my
$want
=
"any version"
;
my
$pv
= ($^V || $]);
$v
.=
"perl: $pv (wanted $want) on $^O from $^X\n\n"
;
};
defined
($@) and diag(
"$@"
);
sub
pmver {
my
(
$module
,
$wanted
) =
@_
;
$wanted
=
" (want $wanted)"
;
my
$pmver
;
eval
"require $module;"
;
if
($@) {
if
($@ =~ m/Can't locate .* in \
@INC
/) {
$pmver
=
'module not found.'
;
}
else
{
diag(
"${module}: $@"
);
$pmver
=
'died during require.'
;
}
}
else
{
my
$version
;
eval
{
$version
=
$module
->VERSION; };
if
($@) {
diag(
"${module}: $@"
);
$pmver
=
'died during VERSION check.'
;
}
elsif
(
defined
$version
) {
$pmver
=
"$version"
;
}
else
{
$pmver
=
'<undef>'
;
}
}
return
sprintf
(
'%-45s => %-10s%-15s%s'
,
$module
,
$pmver
,
$wanted
,
"\n"
);
}
eval
{
$v
.= pmver(
'Carp'
,
'any version'
) };
eval
{
$v
.= pmver(
'Class::Load'
,
'any version'
) };
eval
{
$v
.= pmver(
'Config::INI::Reader'
,
'any version'
) };
eval
{
$v
.= pmver(
'Dist::Zilla::App::Tester'
,
'any version'
) };
eval
{
$v
.= pmver(
'Dist::Zilla::MetaProvides::ProvideRecord'
,
'any version'
) };
eval
{
$v
.= pmver(
'Dist::Zilla::Plugin::MetaProvides'
,
'1.11034201'
) };
eval
{
$v
.= pmver(
'Dist::Zilla::PluginBundle::Author::KENTNL'
,
'1.0.0'
) };
eval
{
$v
.= pmver(
'Dist::Zilla::PluginBundle::Author::KENTNL::Lite'
,
'0.01009803'
) };
eval
{
$v
.= pmver(
'Dist::Zilla::Role::MetaProvider::Provider'
,
'any version'
) };
eval
{
$v
.= pmver(
'English'
,
'any version'
) };
eval
{
$v
.= pmver(
'File::Find'
,
'any version'
) };
eval
{
$v
.= pmver(
'File::Temp'
,
'any version'
) };
eval
{
$v
.= pmver(
'Module::Build'
,
'0.3601'
) };
eval
{
$v
.= pmver(
'Moose'
,
'any version'
) };
eval
{
$v
.= pmver(
'Moose::Autobox'
,
'any version'
) };
eval
{
$v
.= pmver(
'Test::More'
,
'0.88'
) };
eval
{
$v
.= pmver(
'namespace::autoclean'
,
'any version'
) };
$v
.=
<<'EOT';
Thanks for using my code. I hope it works for you.
If not, please try and include this output in the bug report.
That will help me reproduce the issue and solve you problem.
EOT
diag(
$v
);
ok(1,
"we really didn't test anything, just reporting data"
);
$success
= 1;
no
warnings
'once'
;
$Template::Test::NO_FLUSH
= 1;
exit
0;