Commit | Line | Data |
ad0ce551 |
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 | } |