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