Select Code to Download

#!/usr/bin/env perl

...
    my $v = ($u, $z)[$u % 2 ? ($z % 2 ? $u < $z : 0) : 1];
    ok((NO_ODDS, $v)[$v % 2] eq $test->[EXPECT]);
}

1..13
ok 1
... 2 to 12 all 'ok' also ...
ok 13