| line |
true |
false |
branch |
|
13
|
0 |
4 |
if (not eval {
do {
require Throw
}
}) { } |
|
15
|
0 |
0 |
$p || $Throw::pretty ? : |
|
|
0 |
0 |
if %$s |
|
16
|
0 |
0 |
unless $a |
|
|
0 |
0 |
ref $m ? : |
|
17
|
0 |
0 |
if ($a->{'trace'} or $l) |
|
22
|
0 |
10 |
unless $_[0]{'service_name'} or $_[0]{'service'} |
|
29
|
0 |
5 |
if ref $args ne "HASH" |
|
32
|
0 |
5 |
if not $args->{'_t'} and $self->{'token'} |
|
33
|
5 |
0 |
unless $self->config("no_trace", undef, $name) |
|
34
|
0 |
5 |
exists $args->{'_flat'} ? : |
|
35
|
5 |
0 |
if $self->_needs_remote($method) |
|
63
|
10 |
34 |
ref $def eq 'CODE' ? : |
|
|
0 |
44 |
ref $c->{$name} && exists $c->{$name}{$key} ? : |
|
|
0 |
44 |
exists $$c{"${name}_$key"} ? : |
|
|
0 |
44 |
ref $$c{"${name}_service"} && exists $$c{"${name}_service"}{$key} ? : |
|
|
0 |
44 |
exists $$c{"${name}_service_$key"} ? : |
|
|
34 |
44 |
exists $self->{$key} ? : |
|
70
|
0 |
5 |
if $self->config("no_brand", undef, $name) |
|
71
|
5 |
0 |
unless (eval {
do {
config::provider()
}
} or $self->_configs->{'provider'}) |
|
82
|
5 |
0 |
$no_ssl ? : |
|
83
|
0 |
5 |
$name =~ /^(\w+)_service/ ? : |
|
84
|
0 |
5 |
&$val('no_sign', undef) ? : |
|
85
|
0 |
5 |
exists $args->{'_utf8_encoded'} ? : |
|
89
|
0 |
5 |
if $ns |
|
90
|
5 |
0 |
$brand ? : |
|
156
|
0 |
5 |
$self->{'pretty'} ? : |
|
162
|
5 |
0 |
if ($self->{'flat'}) |
|
164
|
0 |
2 |
$args->{'pretty'} ? : |
|
|
2 |
3 |
if $data->{'error'} |
|
170
|
0 |
0 |
unless +(shift())->{'result_class'} |
|
174
|
0 |
0 |
if (UNIVERSAL::isa($d, 'HASH')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($d, 'ARRAY')) { } |
|
175
|
0 |
0 |
ref $v ? : |
|
|
0 |
0 |
if ref $v ? _encode_utf8_recurse($v) : $v and utf8::is_utf8($v) |
|
177
|
0 |
0 |
ref $v ? : |
|
|
0 |
0 |
if ref $v ? _encode_utf8_recurse($v) : $v and utf8::is_utf8($v) |
|
184
|
0 |
0 |
if $seen->{$d}++ |
|
185
|
0 |
0 |
if (UNIVERSAL::isa($d, 'HASH')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($d, 'ARRAY')) { } |
|
186
|
0 |
0 |
ref $v ? : |
|
|
0 |
0 |
if ref $v ? _decode_utf8_recurse($v, $seen) : $v and not utf8::is_utf8($v) |
|
188
|
0 |
0 |
ref $v ? : |
|
|
0 |
0 |
if ref $v ? _decode_utf8_recurse($v, $seen) : $v and not utf8::is_utf8($v) |
|
195
|
5 |
0 |
$Respite::Client::AUTOLOAD =~ /::(\w+)$/ ? : |
|
196
|
0 |
5 |
unless ref $self |
|
197
|
0 |
0 |
unless $self->_needs_remote($meth) or $self->can("__$meth") |
|
200
|
0 |
5 |
if __PACKAGE__ ne ref $self |
|
208
|
0 |
0 |
ref $_[0] ? : |
|
209
|
0 |
0 |
ref $class ? : |
|
223
|
0 |
0 |
if (my $err = $self->error) |
|
225
|
0 |
0 |
defined $Respite::Client::pretty ? : |
|
227
|
0 |
0 |
$p ? : |
|
|
0 |
0 |
!scalar(keys %$self) ? : |