| line |
true |
false |
branch |
|
32
|
1 |
11 |
unless &GetOptions("f=s", \$schema_file, "m|module=s", \$parse_mod, "s|silent", \$silent, "v|version", \$show_version, "h|help", sub {
print usage();
exit 0;
}
) |
|
34
|
0 |
11 |
if ($show_version) |
|
39
|
1 |
10 |
unless (defined $schema_file) |
|
44
|
1 |
9 |
unless (defined $data_file) |
|
49
|
1 |
7 |
if (@schema != 1) |
|
61
|
4 |
6 |
if ($@) { } |
|
65
|
1 |
5 |
unless ($silent) |
|
78
|
0 |
16 |
if (defined $parse_mod) { } |
|
|
0 |
16 |
elsif ($file =~ /\.json$/i) { } |
|
88
|
0 |
50 |
if ($try eq 'YAML::Syck' and eval {
do {
require YAML::Syck;
1
}
}) { } |
|
|
16 |
34 |
elsif ($try eq 'YAML::XS' and eval {
do {
require YAML::XS;
1
}
}) { } |
|
|
0 |
34 |
elsif ($try eq 'YAML' and eval {
do {
require YAML;
1
}
}) { } |
|
|
0 |
34 |
elsif ($try eq 'JSON::XS' and eval {
do {
require JSON::XS;
1
}
}) { } |
|
|
0 |
34 |
elsif ($try eq 'JSON' and eval {
do {
require JSON;
1
}
}) { } |
|
90
|
0 |
0 |
unless $@ |
|
94
|
15 |
1 |
unless $@ |
|
98
|
0 |
0 |
unless $@ |
|
102
|
0 |
0 |
unless $@ |
|
107
|
0 |
0 |
if (defined &JSON::from_json) { } |
|
113
|
0 |
0 |
if $data and not $@ |
|
119
|
0 |
1 |
if (not @errors) { } |
|
128
|
0 |
0 |
unless open FH, "< $file" |
|
138
|
2 |
1 |
if (defined $msg) { } |