12345678910 BEGIN { @classes = qw(Math::NoCarry); }use Test::More tests => scalar @classes;foreach my $class ( @classes ) { print "bail out! $class did not compile\n" unless use_ok( $class ); }
BEGIN {
@classes
=
qw(Math::NoCarry)
;
}
use
Test::More
tests
=>
scalar
foreach
my
$class
(
)
{
print
"bail out! $class did not compile\n"
unless
use_ok(
);