| script/perl2json.pl | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 16 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 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!", sub { $params{'dont-bloody-escape-unicode'} = $_[1] ? 0 : 1; } )) |
| 37 | 0 | 0 | $_[1] ? : |
| 40 | 2 | 0 | if (defined $INPUT_FILE) { } |
| 0 | 0 | elsif (not defined $INPUT_STRING) { } | |
| 42 | 0 | 2 | unless (defined $INPUT_STRING) |
| 49 | 1 | 1 | unless (defined $result) |
| 51 | 0 | 1 | if (defined $OUTPUT_FILE) { } |
| 52 | 0 | 0 | unless (Data::Roundtrip::write_to_file($OUTPUT_FILE, $result)) |