| line |
true |
false |
branch |
|
29
|
0 |
0 |
if $$self{$method} |
|
39
|
0 |
0 |
unless -d $$self{'lwhome'} |
|
53
|
0 |
0 |
$$self{'configure'}{'save'} =~ /y/i ? : |
|
|
0 |
0 |
if ($$self{'configure'}{'save'} =~ /y/i ? 1 : 0) { } |
|
55
|
0 |
0 |
unless open my $session, '>', $$self{'apiconfig'} |
|
80
|
0 |
0 |
if ($response->code != 200 or $response->content =~ /error/) |
|
106
|
0 |
0 |
if ($docs) |
|
112
|
0 |
0 |
unless (not $value or $$seen{$input}++) |
|
113
|
0 |
0 |
if ($value eq 'BOOLEAN') { } |
|
|
0 |
0 |
elsif ($value =~ /HASH/) { } |
|
|
0 |
0 |
elsif ($value =~ /ARRAY/) { } |
|
|
0 |
0 |
elsif ($value =~ /INT/) { } |
|
|
0 |
0 |
elsif ($value =~ /FLOAT/) { } |
|
140
|
0 |
0 |
if (delete $$options{'configure'}) |
|
143
|
0 |
0 |
unless ($$self{'configure'}{'save'}) |
|
147
|
0 |
0 |
if (my $timeout = $$self{'configure'}{'timeout'}) |
|
153
|
0 |
0 |
if (my $value = delete $$options{$key}) |
|
159
|
0 |
0 |
unless defined $$options{$key} |
|
172
|
0 |
0 |
if (-e $$self{$file}) |
|
173
|
0 |
0 |
unless unlink $$self{$file} |
|
187
|
0 |
0 |
if ($$self{'list'} eq 'all') { } |
|
|
0 |
0 |
elsif ($command =~ /^$$self{'list'}/) { } |
|
207
|
0 |
0 |
if ($docs) |
|
225
|
0 |
0 |
$self->commands->{'v1'}{$$self{'command'}} ? : |
|
|
0 |
0 |
$self->commands->{'bleed'}{$$self{'command'}} ? : |
|
243
|
0 |
0 |
unless ($$self{'command'}) |
|
273
|
0 |
0 |
unless open my $docs, '<', "$$self{'lwhome'}/$version.json" |
|
322
|
0 |
0 |
if ($line =~ /^([output-]+)(\s*?)=(\s*?)(.*?)$/) |
|
337
|
0 |
0 |
unless ($$self{'configure'}{'username'} and $$self{'configure'}{'secret'}) |
|
338
|
0 |
0 |
if (-e $$self{'apiconfig'}) { } |
|
|
0 |
0 |
elsif (-e $$self{'apisession'}) { } |
|
343
|
0 |
0 |
if ($line =~ /^([secret-]+)(\s*?)=(\s*?)(.*?)$/) |
|
346
|
0 |
0 |
if ($line =~ /^([username-]+)(\s*?)=(\s*?)(.*?)$/) |
|
352
|
0 |
0 |
unless open my $session, '<', $$self{'apisession'} |
|
359
|
0 |
0 |
$$self{'configure'}{'username'} ? : |
|
|
0 |
0 |
$$self{'configure'}{'secret'} ? : |
|
367
|
0 |
0 |
unless open my $session, '>', $$self{'apisession'} |
|
378
|
0 |
0 |
if ($self->output eq 'perl') { } |
|
|
0 |
0 |
elsif ($self->output eq 'table') { } |
|
|
0 |
0 |
elsif ($self->output eq 'text') { } |
|
402
|
0 |
0 |
if (ref $ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($key) { } |
|
403
|
0 |
0 |
$key ? : |
|
407
|
0 |
0 |
$key ? : |
|
413
|
0 |
0 |
$ref ? : |
|
438
|
0 |
0 |
if (ref $ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $ref eq 'HASH') { } |
|
443
|
0 |
0 |
if (exists $$ref{'items'}) { } |
|
474
|
0 |
0 |
unless $$self{'command'} |
|
482
|
0 |
0 |
$self->options->{'no-verify-ssl'} ? : |
|
487
|
0 |
0 |
if ($response->code != 200 or $response->content =~ /error/) |
|
493
|
0 |
0 |
if ($$content{'token'}) |