[scpubgit/Tak.git] / t / 00load_all.t

use strictures 1;
use Test::More qw(no_plan);
use IO::All;

foreach my $file (io('lib')->all_files(0)) {
  (my $name = $file->name) =~ s/^lib\///;
  ok(eval { require $name; 1 }, "${file} loaded ok");
  warn $@ if $@;
}
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	}