| line |
true |
false |
branch |
|
16
|
0 |
0 |
unless $args |
|
26
|
0 |
0 |
if (not ref $meta) { } |
|
|
0 |
0 |
elsif ($meta->{'remote'}) { } |
|
28
|
0 |
0 |
unless $meta->can("new") or eval {
do {
require $file
}
} |
|
29
|
0 |
0 |
unless $meta->can("run_method") |
|
33
|
0 |
0 |
unless shift() |
|
36
|
0 |
0 |
if $preload |
|
37
|
0 |
0 |
unless shift() |
|
48
|
0 |
0 |
unless ref $self |
|
54
|
0 |
0 |
if $method =~ /^-{0,2}(help|h|pod|p)$/ |
|
57
|
0 |
0 |
if @$ARGV % 2 |
|
59
|
0 |
0 |
if exists $req->{''} |
|
60
|
0 |
0 |
if $req->{$key} and $req->{$key} =~ /^:(null|true|false)$/ |
|
61
|
0 |
0 |
if not $self->{'no_data_uriencode'} and eval {
do {
require Data::URIEncode
}
} |
|
64
|
0 |
0 |
$ENV{'SHOW_META'} ? : |
|
66
|
0 |
0 |
if ref $data and $data->{'error'} |
|
71
|
0 |
0 |
unless ref $self |
|
79
|
0 |
0 |
$obj->can('config') ? : |
|
|
0 |
0 |
if $obj->can("config") ? !$obj->config("no_trace", undef) : 1 |
|
81
|
0 |
0 |
$ENV{'REALUSER'} || $ENV{'SUDO_USER'} ? : |
|
82
|
0 |
0 |
if $obj->isa("Respite::Base") and $ENV{'BRAND'} || $ENV{'PROV'} |
|
84
|
0 |
0 |
if $self->{'token'} or $ENV{'ADMIN_Respite_TOKEN'} |
|
86
|
0 |
0 |
if $obj->can("commandline_init") |
|
89
|
0 |
0 |
$extra ? : |
|
|
0 |
0 |
$obj->can('run_method') ? : |
|
90
|
0 |
0 |
unless ref $data |
|
91
|
0 |
0 |
builtin::blessed($data) && $data->can('data') ? : |
|
|
0 |
0 |
!ref($data) ? : |
|
95
|
0 |
0 |
unless $ref->{'type'} and $ref->{'type'} =~ /^token_\w+$/ |
|
96
|
0 |
0 |
if $self->{'no_token_retry'} |
|
98
|
0 |
0 |
unless eval {
do {
require IO::Prompt
}
} |
|
102
|
0 |
0 |
!$obj->can('config') ? : |
|
103
|
0 |
0 |
if (not $key) { } |
|
|
0 |
0 |
elsif (not eval {
do {
require Crypt::OpenSSL::RSA
}
}) { } |
|
124
|
0 |
0 |
if ref $data->{$_} eq "ARRAY" |
|
|
0 |
0 |
if ($ENV{'CSV'} and my(@fields) = grep({ref $data->{$_}[0] eq "HASH" if ref $data->{$_} eq "ARRAY";} sort(keys %$data))) |
|
128
|
0 |
0 |
if @fields > 1 |
|
129
|
0 |
0 |
$b eq 'id' ? : |
|
|
0 |
0 |
if ($a eq 'id') { } |
|
131
|
0 |
0 |
ref $_ eq 'HASH' ? : |
|
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
135
|
0 |
0 |
if ($ENV{'YAML'}) { } |
|
|
0 |
0 |
elsif ($ENV{'JSON'} or not eval {
do {
require Text::PrettyTable
}
}) { } |
|
|
0 |
0 |
elsif ($ENV{'PERL'}) { } |
|
136
|
0 |
0 |
unless eval {
do {
require YAML
}
} |
|
139
|
0 |
0 |
unless eval {
do {
require JSON
}
} |
|
141
|
0 |
0 |
if $ENV{'SHOW_META'} |
|
145
|
0 |
0 |
if (eval {
do {
require Data::Debug
}
}) { } |
|
149
|
0 |
0 |
$ENV{'SHOW_META'} ? : |
|
153
|
0 |
0 |
if ($ENV{'SHOW_META'}) |
|
159
|
0 |
0 |
if (scalar keys %$data == 1 || $data->{'n_pages'} && $data->{'n_pages'} == 1 and $data->{'rows'}) { } |
|
195
|
0 |
0 |
if ($args->{'brief'}) { } |
|
198
|
0 |
0 |
($_ = $args->{'method'}) ? : |
|
202
|
0 |
0 |
if $m->{'desc'} |
|
205
|
0 |
0 |
ref $args->{'group order'} ? : |
|
207
|
0 |
0 |
if not ref $args->{$field} and eval {
do {
require Data::Debug
}
} |
|
208
|
0 |
0 |
if $args->{$field}{'required'} |
|
209
|
0 |
0 |
if $args->{$field}{'desc'} |
|
215
|
0 |
0 |
if (not $args->{'format'} or $args->{'format'} and $args->{'format'} =~ /h/) |