line |
true |
false |
branch |
23
|
0 |
2 |
unless &Getopt::Long::GetOptionsFromArray(\@_, \%opt, 'help|h|?', 'parse=s', 'podurl=s', 'ext=s', 'index=s', 'wiki', 'default-meta=s', 'update', 'quiet') |
28
|
0 |
2 |
if delete $opt{'help'} |
30
|
2 |
0 |
@_ ? : |
34
|
1 |
1 |
if (defined $index) { } |
42
|
0 |
2 |
if ($opt{'parse'} and $opt{'parse'} ne '*') |
52
|
0 |
0 |
unless $meta |
58
|
0 |
0 |
if (not ref $value) { } |
|
0 |
0 |
elsif (&JSON::is_bool($value)) { } |
|
0 |
0 |
elsif (&blessed($value)) { } |
|
0 |
0 |
elsif (&reftype($value) eq 'ARRAY') { } |
65
|
0 |
0 |
if ($value->can('is_meta') and $value->is_meta) { } |
84
|
0 |
0 |
if ref $meta |
87
|
0 |
0 |
if ($meta =~ /\.json$/) { } |
88
|
0 |
0 |
unless open my $fh, '<:encoding(UTF-8)', $meta |
105
|
0 |
0 |
ref $_[0] ? : |
112
|
0 |
0 |
if (@$input > 0 and -d $input->[0]) { } |
113
|
0 |
0 |
@$input > 1 ? : |
119
|
0 |
0 |
unless %$found or $opt->{'quiet'} |
131
|
0 |
0 |
@$input ? : |
135
|
0 |
0 |
if (@args) { } |