t/00load_all.t

   1 use strictures 1;
   2 use Test::More qw(no_plan);
   3 use IO::All;
   4
   5 foreach my $file (io('lib')->all_files(0)) {
   6   (my $name = $file->name) =~ s/^lib\///;
   7   ok(eval { require $name; 1 }, "${file} loaded ok");
   8   warn $@ if $@;
   9 }