| line |
true |
false |
branch |
|
122
|
0 |
62 |
unless $handler |
|
126
|
4 |
58 |
if $handler eq $handler_package . '::BaseHandler' |
|
128
|
0 |
58 |
if $@ |
|
134
|
46 |
12 |
if defined $_->[1] |
|
136
|
46 |
12 |
if defined $_->[1] |
|
200
|
0 |
5 |
ref $_[0] eq 'HASH' ? : |
|
203
|
0 |
5 |
if ($cfg->{'server'}) |
|
204
|
0 |
0 |
$cfg->{'config'} ? : |
|
206
|
0 |
0 |
if (defined $server_cfg) |
|
212
|
1 |
4 |
$cfg->{'product'} ? : |
|
215
|
0 |
5 |
if ($product and not $PRODUCT_HANDLER{lc $product}) |
|
220
|
0 |
5 |
if $@ |
|
378
|
0 |
0 |
unless $object |
|
381
|
0 |
0 |
if (ref $object eq 'CODE') { } |
|
389
|
0 |
0 |
if ($response->is_error) |
|
390
|
0 |
0 |
ref $attribute eq 'ARRAY' ? : |
|
391
|
0 |
0 |
$path ? : |
|
392
|
0 |
0 |
if $response->status == 404 |
|
443
|
0 |
0 |
unless $object |
|
445
|
0 |
0 |
if (ref $object eq 'CODE') { } |
|
448
|
0 |
0 |
unless $attribute |
|
449
|
0 |
0 |
unless defined $value |
|
453
|
0 |
0 |
if ($response->status == 404) |
|
499
|
0 |
0 |
if $response->status == 404 |
|
500
|
0 |
0 |
if ($response->is_error) |
|
504
|
0 |
0 |
ref $val eq 'ARRAY' && @$val ? : |
|
547
|
0 |
0 |
if (ref $mbean eq 'CODE') { } |
|
553
|
0 |
0 |
if ($response->is_error) |
|
554
|
0 |
0 |
@$op_args ? : |
|
|
0 |
0 |
if $response->status == 404 |
|
580
|
0 |
0 |
if ($response->is_error) |
|
637
|
0 |
0 |
if ($@) |
|
642
|
0 |
0 |
if ($@) |
|
660
|
0 |
0 |
if ($@) |
|
661
|
0 |
0 |
unless $@ eq "timeout\n" |
|
712
|
0 |
0 |
$object ? : |
|
816
|
0 |
0 |
if ($response->is_error) |
|
855
|
1 |
7 |
unless $name =~ /:/ |
|
862
|
4 |
7 |
if ($rest =~ /^"/) { } |
|
864
|
0 |
4 |
$escaped ? : |
|
866
|
4 |
0 |
unless $escaped |
|
868
|
6 |
1 |
if ($rest =~ s/([^,]+)(\s*,\s*|$)//) |
|
872
|
1 |
10 |
unless defined $value |
|
878
|
1 |
5 |
if $rest |
|
901
|
0 |
0 |
if ($path_or_resp and UNIVERSAL::isa($path_or_resp, 'JMX::Jmx4Perl::Response')) { } |
|
909
|
0 |
0 |
if $path |
|
911
|
0 |
0 |
if @path > 2 |
|
927
|
0 |
0 |
if (ref $f eq 'HASH') { } |
|
929
|
0 |
0 |
if ($f->{'alias'}) { } |
|
933
|
0 |
0 |
if (ref $object eq 'CODE') |
|
935
|
0 |
0 |
$args{'with_value'} ? : |
|
937
|
0 |
0 |
unless $object |
|
938
|
0 |
0 |
if ($alias_path) { } |
|
939
|
0 |
0 |
$f->{'path'} ? : |
|
950
|
0 |
0 |
if (@{$p;} == 1 and not $args{'with_value'} or @{$p;} == 2 and $args{'with_value'} or $self->_is_alias($p->[0])) { } |
|
956
|
0 |
0 |
if (ref $object eq 'CODE') |
|
958
|
0 |
0 |
$args{'with_value'} ? : |
|
960
|
0 |
0 |
unless $object |
|
962
|
0 |
0 |
if ($args{'with_value'}) { } |
|
976
|
0 |
0 |
if (ref($args[0] eq 'JMX::Jmx4Perl::Request')) { } |
|
|
0 |
0 |
elsif (ref $args[0] eq 'HASH') { } |
|
980
|
0 |
0 |
if ($args->{'alias'}) { } |
|
982
|
0 |
0 |
if (ref $mbean eq 'CODE') |
|
986
|
0 |
0 |
unless $mbean |
|
994
|
0 |
0 |
if ($self->_is_alias($args[0])) { } |
|
997
|
0 |
0 |
if (ref $mbean eq 'CODE') |
|
1001
|
0 |
0 |
unless $mbean |
|
1016
|
0 |
0 |
if (UNIVERSAL::isa($alias, 'JMX::Jmx4Perl::Alias::Object')) { } |
|
|
0 |
0 |
elsif ('JMX::Jmx4Perl::Alias'->by_name($alias)) { } |
|
1029
|
0 |
0 |
if ($f->{'domain'} and $f->{'properties'} || $f->{'props'}) |
|
1032
|
0 |
0 |
unless ref $href |
|
1042
|
2 |
1 |
unless ($self->{'product'}) |
|
1047
|
1 |
2 |
unless $self->{'product_handler'} |
|
1048
|
0 |
3 |
unless $self->{'product'} |
|
1057
|
2 |
2 |
if $handler->autodetect |
|
1067
|
0 |
5 |
if $@ |
|
1080
|
0 |
0 |
$SEPS[$level] ? : |
|
1081
|
0 |
0 |
if ($p) { } |
|
1083
|
0 |
0 |
unless (@$path) |
|
1091
|
0 |
0 |
if ($level == 0) { } |
|
|
0 |
0 |
elsif ($level == 1) { } |
|
1096
|
0 |
0 |
unless $d =~ /^(attr|op|class|desc|error)$/ |
|
1098
|
0 |
0 |
if ($d eq 'attr') { } |
|
|
0 |
0 |
elsif ($d eq 'op') { } |
|
|
0 |
0 |
elsif ($d eq 'class') { } |
|
|
0 |
0 |
elsif ($d eq 'desc') { } |
|
|
0 |
0 |
elsif ($d eq 'error') { } |
|
1110
|
0 |
0 |
if ($level == 0) { } |
|
|
0 |
0 |
elsif ($level == 1) { } |
|
1125
|
0 |
0 |
if ($p eq $top_key) { } |
|
1127
|
0 |
0 |
if ($p) { } |
|
1145
|
0 |
0 |
!$attr->{'rw'} || 'false' eq lc $attr->{'rw'} ? : |
|
1152
|
0 |
0 |
ref $op eq 'HASH' ? : |
|
1156
|
0 |
0 |
unless $first |
|
1166
|
0 |
0 |
if ($args) |
|
1170
|
0 |
0 |
if @$args |
|
1186
|
0 |
23 |
if (defined $val) |