| line |
true |
false |
branch |
|
27
|
0 |
0 |
unless ref $self |
|
30
|
0 |
0 |
if (my $err = $@) |
|
35
|
0 |
0 |
if ($options->{'version'}) |
|
39
|
0 |
0 |
if ($options->{'help'}) |
|
42
|
0 |
0 |
if ($options->{'manual'}) |
|
47
|
0 |
0 |
unless ($url) |
|
63
|
0 |
0 |
if (my $err = $@) |
|
64
|
0 |
0 |
if $ENV{'GRAPHQL_CLIENT_DEBUG'} |
|
70
|
0 |
0 |
if ($query eq '-') |
|
71
|
0 |
0 |
if -t STDIN |
|
79
|
0 |
0 |
if $err |
|
80
|
0 |
0 |
$unpack ? : |
|
82
|
0 |
0 |
if ($outfile) |
|
83
|
0 |
0 |
unless open my $out, '>', $outfile |
|
87
|
0 |
0 |
if (my $filter = $options->{'filter'}) |
|
88
|
0 |
0 |
unless eval {
do {
require JSON::Path::Evaluator
}
} |
|
90
|
0 |
0 |
if (@values == 1) { } |
|
101
|
0 |
0 |
$unpack && $err ? : |
|
111
|
0 |
4 |
if grep {/\P{ASCII}/;} @args |
|
132
|
0 |
4 |
unless &GetOptionsFromArray(\@args, 'version', \$options{'version'}, 'help|h|?', \$options{'help'}, 'manual|man', \$options{'manual'}, 'url|u=s', \$options{'url'}, 'query|mutation=s', \$options{'query'}, 'variables|vars|V=s', \$options{'variables'}, 'variable|var|d=s%', \$options{'variables'}, 'operation-name|n=s', \$options{'operation_name'}, 'transport|t=s%', \$options{'transport'}, 'format|f=s', \$options{'format'}, 'filter|p=s', \$options{'filter'}, 'unpack!', \$options{'unpack'}, 'output|o=s', \$options{'outfile'}) |
|
134
|
2 |
2 |
unless $options{'url'} |
|
135
|
1 |
3 |
unless $options{'query'} |
|
140
|
0 |
4 |
if $@ |
|
142
|
0 |
4 |
if (ref $options{'variables'}) { } |
|
|
0 |
4 |
elsif ($options{'variables'}) { } |
|
144
|
0 |
0 |
if $@ |
|
148
|
0 |
0 |
if $@ |
|
156
|
0 |
0 |
if (ref $item eq 'ARRAY') |
|
158
|
0 |
0 |
unless ref $first |
|
161
|
0 |
0 |
if ref $item eq 'HASH' |
|
168
|
0 |
0 |
if ($format eq 'json' or $format eq 'json:pretty') { } |
|
|
0 |
0 |
elsif ($format eq 'yaml') { } |
|
|
0 |
0 |
elsif ($format eq 'csv' or $format eq 'tsv' or $format eq 'table') { } |
|
|
0 |
0 |
elsif ($format eq 'string') { } |
|
|
0 |
0 |
elsif ($format eq 'perl') { } |
|
170
|
0 |
0 |
if $format eq 'json:pretty' |
|
174
|
0 |
0 |
unless eval {
do {
require YAML
}
} |
|
178
|
0 |
0 |
$format eq 'tsv' ? : |
|
182
|
0 |
0 |
if ref $data eq 'HASH' and $data->{'data'} |
|
187
|
0 |
0 |
if (ref $unpacked eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $unpacked eq 'ARRAY') { } |
|
188
|
0 |
0 |
if (keys %$unpacked == 1) |
|
190
|
0 |
0 |
if (ref $val eq 'ARRAY') |
|
192
|
0 |
0 |
if ($first and ref $first eq 'HASH') { } |
|
|
0 |
0 |
elsif ($first) { } |
|
207
|
0 |
0 |
if ($first and ref $first eq 'HASH') { } |
|
|
0 |
0 |
elsif ($first) { } |
|
219
|
0 |
0 |
if (@columns) { } |
|
220
|
0 |
0 |
if ($format eq 'table') { } |
|
221
|
0 |
0 |
unless eval {
do {
require Text::Table::Any
}
} |
|
230
|
0 |
0 |
unless eval {
do {
require Text::CSV
}
} |
|
245
|
0 |
0 |
if (not ref $data) { } |
|
|
0 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
258
|
0 |
0 |
unless eval {
do {
require Data::Dumper
}
} |
|
275
|
4 |
15 |
if ($segment =~ /\[([^\.\]]+)\]/) { } |
|
276
|
4 |
0 |
if @path |
|
283
|
7 |
8 |
if @path |
|
305
|
4 |
6 |
$type eq 'ARRAY' ? : |
|
|
7 |
10 |
$type eq 'HASH' ? : |
|
306
|
14 |
3 |
if (ref $curr eq 'HASH') { } |
|
|
3 |
0 |
elsif (ref $curr eq 'ARRAY') { } |
|
307
|
0 |
14 |
if $segment->{'index'} |
|
308
|
3 |
11 |
if (defined $curr->{$name}) { } |
|
309
|
2 |
1 |
if $type ne ref $curr->{$name} |
|
317
|
0 |
3 |
unless $segment->{'index'} |
|
318
|
0 |
3 |
if (defined $curr->[$name]) { } |
|
319
|
0 |
0 |
if $type ne ref $curr->[$name] |
|
338
|
0 |
0 |
if ($@) { } |
|
339
|
0 |
0 |
$VERSION eq '999.999' ? : |