| line |
!l |
l&&!r |
l&&r |
condition |
|
60
|
0 |
0 |
0 |
$req->{$key} and $req->{$key} =~ /^:(null|true|false)$/ |
|
61
|
0 |
0 |
0 |
not $self->{'no_data_uriencode'} and eval {
do {
require Data::URIEncode
}
} |
|
66
|
0 |
0 |
0 |
ref $data and $data->{'error'} |
|
82
|
0 |
0 |
0 |
$obj->isa("Respite::Base") and $ENV{'BRAND'} || $ENV{'PROV'} |
|
91
|
0 |
0 |
0 |
builtin::blessed($data) && $data->can('data') |
|
95
|
0 |
0 |
0 |
$ref->{'type'} and $ref->{'type'} =~ /^token_\w+$/ |
|
124
|
0 |
0 |
0 |
$ENV{'CSV'} and my(@fields) = grep({ref $data->{$_}[0] eq "HASH" if ref $data->{$_} eq "ARRAY";} sort(keys %$data)) |
|
159
|
0 |
0 |
0 |
scalar keys %$data == 1 || $data->{'n_pages'} && $data->{'n_pages'} == 1 and $data->{'rows'} |
|
207
|
0 |
0 |
0 |
not ref $args->{$field} and eval {
do {
require Data::Debug
}
} |
|
215
|
0 |
0 |
0 |
$args->{'format'} and $args->{'format'} =~ /h/ |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
24
|
0 |
0 |
0 |
$self->{'dispatch_factory'} ||= do {
my $meta = $self->api_meta || $self->dispatch_class || throw('Missing one of api_meta or dispatch_class');
if (not ref $meta) {
(my $file = "$meta.pm") =~ s[::][/]g;
throw("Failed to load dispatch class", {"class", $meta, "file", $file, "msg", $@}) unless $meta->can("new") or eval {
do {
require $file
}
};
throw("Specified class does not have a run_method method", {"class", $meta}) unless $meta->can("run_method");
sub {
$meta->new(@_);
}
;
}
elsif ($meta->{'remote'}) {
require Respite::Client;
sub {
"Respite::Client"->new({%{{} unless shift();}, %$meta});
}
;
}
else {
require Respite::Base;
"Respite::Base"->new({"api_meta", $meta})->api_preload if $preload;
sub {
"Respite::Base"->new({%{{} unless shift();}, "api_meta", $meta});
}
;
}
} |
|
25
|
0 |
0 |
0 |
$self->api_meta || $self->dispatch_class || throw('Missing one of api_meta or dispatch_class') |
|
28
|
0 |
0 |
0 |
$meta->can("new") or eval {
do {
require $file
}
} |
|
81
|
0 |
0 |
0 |
$ENV{'REALUSER'} || $ENV{'SUDO_USER'} |
|
82
|
0 |
0 |
0 |
$ENV{'BRAND'} || $ENV{'PROV'} |
|
|
0 |
0 |
0 |
$ENV{'BRAND'} || $ENV{'PROV'} |
|
84
|
0 |
0 |
0 |
$self->{'token'} || $ENV{'ADMIN_Respite_TOKEN'} |
|
|
0 |
0 |
0 |
$self->{'token'} or $ENV{'ADMIN_Respite_TOKEN'} |
|
99
|
0 |
0 |
0 |
'' . IO::Prompt::prompt(' Web Auth Username: ', '-d', $obj->{'remote_user'}) || $obj->{'remote_user'} |
|
100
|
0 |
0 |
0 |
'' . IO::Prompt::prompt(" Web Auth Password ($user): ", '-e', '*') || throw('Cannot proceed without password') |
|
115
|
0 |
0 |
0 |
$ref->{'token'} || throw('Did not get a token back from successful test_auth', {'data', $ref}) |
|
135
|
0 |
0 |
0 |
$ENV{'JSON'} or not eval {
do {
require Text::PrettyTable
}
} |
|
159
|
0 |
0 |
0 |
scalar keys %$data == 1 || $data->{'n_pages'} && $data->{'n_pages'} == 1 |
|
176
|
0 |
0 |
0 |
$args->{'script'} || $0 |
|
205
|
0 |
0 |
0 |
$args->{'group order'} || () |
|
215
|
0 |
0 |
0 |
not $args->{'format'} or $args->{'format'} and $args->{'format'} =~ /h/ |