Help for this page

Select Code to Download


  1. or download this
    my @failures;
    foreach my $file (<t/*.t>) {
    ...
    else {
        print "All tests succeeded.\n";
    }