Branch Coverage

blib/lib/JMX/Jmx4Perl.pm
Criterion Covered Total %
branch 35 192 18.2


line true false branch
122 0 47 unless $handler
126 3 44 if $handler eq $handler_package . '::BaseHandler'
128 0 44 if $@
134 35 9 if defined $$_[1]
136 35 9 if defined $$_[1]
200 0 4 ref $_[0] eq 'HASH' ? :
203 0 4 if ($$cfg{'server'})
204 0 0 $$cfg{'config'} ? :
206 0 0 if (defined $server_cfg)
212 1 3 $$cfg{'product'} ? :
215 0 4 if ($product and not $PRODUCT_HANDLER{lc $product})
220 0 4 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 eq 'attr' or $d eq 'op' or $d eq 'error' or $d eq 'desc'
1098 0 0 if ($d eq 'attr') { }
0 0 elsif ($d eq 'op') { }
0 0 elsif ($d eq 'desc') { }
0 0 elsif ($d eq 'error') { }
1108 0 0 if ($level == 0) { }
0 0 elsif ($level == 1) { }
1123 0 0 if ($p eq $top_key) { }
1125 0 0 if ($p) { }
1143 0 0 !$$attr{'rw'} || 'false' eq lc $$attr{'rw'} ? :
1150 0 0 ref $op eq 'HASH' ? :
1154 0 0 unless $first
1164 0 0 if ($args)
1168 0 0 if @$args
1184 0 12 if (defined $val)