1 | BEGIN { $| = 1; print "1..1\n"; } | 1 | BEGIN { $| = 1; print "1..7\n"; } |
---|---|---|---|
2 | END {print "not ok 1\n" unless $loaded;} | 2 | |
3 | my $idx; | ||
4 | |||
5 | for my $module (qw( | ||
6 | AnyEvent::MP::Config | ||
7 | AnyEvent::MP::Transport | ||
8 | AnyEvent::MP::Node | ||
9 | AnyEvent::MP::Kernel | ||
3 | use AnyEvent::MP; | 10 | AnyEvent::MP |
4 | $loaded = 1; | 11 | AnyEvent::MP::Global |
5 | print "ok 1\n"; | 12 | AnyEvent::MP::LogCatcher |
13 | )) { | ||
14 | eval "use $module"; | ||
15 | warn "$idx $@" if $@; | ||
16 | print $@ ? "not " : "", "ok ", ++$idx, " # $module ($@)\n"; | ||
17 | } | ||
18 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |