#!/usr/bin/perl -w
#
# Make sure we can "use" every module
use
strict;
BEGIN {
eval
{
};
if
($@) {
"1..0 # Skipped - do not have File::Find::Rule installed\n"
;
exit
;
}
}
BEGIN {
@classes
=
map
{
my
$x
=
$_
;
$x
=~ s|^blib/lib/||;
$x
=~ s|/|::|g;
$x
=~ s|\.pm$||;
$x
;
} File::Find::Rule->file()->name(
'*.pm'
)->in(
'blib/lib'
);
}
foreach
my
$class
(
@classes
) {
use_ok(
$class
);
}