1 | BEGIN { $| = 1; print "1..31\n"; } | 1 | BEGIN { $| = 1; print "1..31\n"; } |
---|---|---|---|
2 | 2 | ||
3 | use utf8; | 3 | use utf8; |
4 | use JSON::XS; | 4 | use JSON::XS; |
5 | no warnings; | ||
5 | 6 | ||
6 | our $test; | 7 | our $test; |
7 | sub ok($) { | 8 | sub ok($) { |
8 | print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; | 9 | print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; |
9 | } | 10 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |