Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
        . (length $test->[EXP] ? 'GOOD' : 'BAD')
    );
}

Select or download this

1..13
ok 1 - Testing '1-2-3' is GOOD
...
#   at ./pm_11148100_re_parse.pl line 55.
ok 13 - Testing '-2-3-4' is GOOD
# Looks like you failed 1 test of 13.