| script/json2json.pl | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 14 | 42.8 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 0 | 2 | unless (&Getopt::Long::GetOptions("i=s", \$INPUT_FILE, "I=s", sub { $INPUT_STRING = &Encode::decode_utf8($_[1]); } , "o=s", \$OUTPUT_FILE, "pretty|p!", \$params{'pretty'}, "escape-unicode|e!", \$params{'escape-unicode'})) |
| 41 | 2 | 0 | if (defined $INPUT_FILE) { } |
| 0 | 0 | elsif (not defined $INPUT_STRING) { } | |
| 43 | 0 | 2 | unless (defined $INPUT_STRING) |
| 50 | 1 | 1 | unless (defined $result) |
| 52 | 0 | 1 | if (defined $OUTPUT_FILE) { } |
| 53 | 0 | 0 | unless (Data::Roundtrip::write_to_file($OUTPUT_FILE, $result)) |