#!/usr/bin/perl
use strict;
use warnings;
use autodie;
my @modules =
(
(map
{
"Games::LMSolve::$_"
}
qw(Numbers Base Plank::Base Plank::Hex Alice),
qw(Tilt::Base Tilt::Single Tilt::Multi Tilt::RedBlue),
qw(Input Registry)
),
"Games::LMSolve"
);
my $num_modules = scalar(@modules);
open my $out_fh, ">t/00use.t";
print {$out_fh} <<"EOF" ;
#!/usr/bin/perl -w
use strict;
use Test::More tests => $num_modules;
BEGIN
{
EOF
foreach (@modules)
{
print {$out_fh} "use_ok(\"$_\");\n";
}
print {$out_fh} "}\n";
close ($out_fh);