#!perl
use
strict;
use
warnings;
BEGIN {
require_ok(
'DateTime::Format::Atom'
);
}
diag(
"Testing DateTime::Format::Atom $DateTime::Format::Atom::VERSION"
);
diag(
"Using Perl $]"
);
for
(
sort
grep
/\.pm\z/,
keys
%INC
) {
s{\.pm\z}{};
s{/}{::}g;
eval
{ diag(
join
(
' '
,
$_
,
$_
->VERSION ||
'<unknown>'
) ) };
}