… | … | ||
---|---|---|---|
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 |