| … | … | ||
|---|---|---|---|
| 5 | use Data::Dumper; | 5 | use Data::Dumper; |
| 6 | use CBOR::XS; | 6 | use CBOR::XS; |
| 7 | 7 | ||
| 8 | binmode DATA; | 8 | binmode DATA; |
| 9 | binmode STDOUT, ":utf8"; | 9 | binmode STDOUT, ":utf8"; |
| 10 | |||
| 11 | my $test; | ||
| 10 | 12 | ||
| 11 | sub ok($;$) { | 13 | sub ok($;$) { |
| 12 | print $_[0] ? "" : "not ", "ok ", ++$test, " - $_[1]\n"; | 14 | print $_[0] ? "" : "not ", "ok ", ++$test, " - $_[1]\n"; |
| 13 | } | 15 | } |
| 14 | 16 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |