1N/Aprint $@ ? "ok 1\n" : "not ok 1 # $@\n"; 1N/Aprint $@ ? "ok 2\n" : "not ok 2 # $@\n"; 1N/Aprint $@ ? "ok 3\n" : "not ok 3 # $@\n"; 1N/A || $@ =~ /Can't locate.*in \@INC/ 1N/A || $@ =~ /Can't load '.*?' for module/ ? "ok $n\n" : "not ok $n # $@\n"; 1N/Aeval { local $^W = 0; 1N/Aprint $@ ? "ok 9\n" : "not ok 9 # $@\n"; 1N/Aprint $@ ? "ok 10\n" : "not ok 10 # $@\n"; 1N/Aprint $@ ? "ok 11\n" : "not ok 11 # $@\n";