Branch Coverage

blib/lib/JMX/Jmx4Perl/Nagios/SingleCheck.pm
Criterion Covered Total %
branch 39 244 15.9


line true false branch
72 0 0 if $self->script
76 0 0 if ($self->alias)
78 0 0 unless $alias
83 0 0 if ($do_read) { }
0 0 elsif ($do_exec) { }
91 0 0 if ($method)
96 0 0 if ($self->base or $self->base_mbean)
97 0 0 unless (&looks_like_number(scalar $self->base))
101 0 0 if ($self->base)
104 0 0 if ($alias) { }
107 0 0 $self->base_mbean ? :
110 0 0 unless $mbean
111 0 0 unless $attr
115 0 0 if $path
139 0 0 if $@
174 0 0 if (ref $request eq 'CODE') { }
184 0 0 if (defined $delta and not $script_mode)
186 0 0 unless (defined $value)
195 0 0 if ($self->base || $self->base_mbean and not $script_mode) { }
198 0 0 $base_value ? :
201 0 0 if ($self->_include_perf_data)
202 0 0 if ($self->perfdata and $self->perfdata =~ /^\s*\%\s*/) { }
207 0 0 $self->unit ? :
216 0 0 unless $code == 0
224 0 0 if ($self->_include_perf_data)
225 0 0 $self->unit ? :
232 0 0 unless $code == 0
245 0 0 unless defined $self->perfdata
255 0 0 if ($label)
268 0 0 if ($req->get('type') eq 'read' and $req->is_mbean_pattern) { }
278 0 0 if (defined $value) { }
279 0 0 if (&JSON::is_bool($value)) { }
0 0 elsif (ref $value and $self->string) { }
280 0 0 $value ? :
283 0 0 if (ref $value eq 'ARRAY') { }
293 0 0 defined $self->null ? :
301 0 0 if ref $val ne 'HASH'
303 0 0 if keys %$val != 1
305 0 0 unless ref $attr_val eq 'HASH'
306 0 0 if keys %$attr_val != 1
314 0 0 if (not $history) { }
319 0 0 if ($req->is_mbean_pattern) { }
324 0 0 unless (@$hist_val)
332 0 0 if ($delta) { }
335 0 0 $time_delta ? :
349 0 0 $target ? :
360 0 0 if (&looks_like_number($name))
366 0 0 if $resp->{'error'}
399 59 13 unless $units->[$i] eq $unit
402 8 5 if (abs $ret > 1) { }
404 2 6 if $i == $#{$units;}
406 6 6 if (abs $ret / $UNITS{$units->[$j]} >= 1) { }
415 0 5 if $i == 0
417 5 3 if ($ret < 1) { }
434 0 0 if ($value =~ /\de/i)
443 0 0 if ($resp->is_error)
445 0 0 if ($np->opts->{'verbose'})
447 0 0 ref $stacktrace eq 'ARRAY' ? :
0 0 if $stacktrace
452 0 0 if (not $req->is_mbean_pattern and (ref $resp->value and not $self->string) and not &JSON::is_bool(scalar $resp->value))
463 1 0 unless ($name)
464 1 0 if ($self->name) { }
468 0 0 if ($self->alias) { }
469 0 0 $self->path ? :
472 0 0 if ($val) { }
476 0 0 $self->path ? :
482 0 1 if ($args->{'cleanup'})
498 0 0 if ($self->alias) { }
0 0 elsif ($self->value) { }
500 0 0 unless @req_args > 0
501 0 0 if ($self->path)
502 0 0 @req_args == 2 ? :
523 0 0 if defined $config_args and ref $config_args ne 'ARRAY'
525 0 0 if ($config_args) { }
530 0 0 defined $cli_arg ? :
535 0 0 if ($self->alias) { }
537 0 0 unless @req_args >= 2
557 0 0 @ret ? :
565 0 0 if ($self->numeric or $self->string) { }
566 0 0 $self->numeric ? :
570 0 0 if ($numeric_check) { }
572 0 0 defined $self->critical ? :
0 0 defined $self->warning ? :
578 0 0 @ths ? :
581 0 0 $value =~ /^true|false$/i ? :
591 0 0 unless $check_value
592 0 0 if ($check_value =~ /^\s*qr(.)(.*)\1\s*$/)
593 0 0 $value =~ /$2/ ? :
595 0 0 if ($check_value =~ s/^\!//) { }
596 0 0 $value ne $check_value ? :
598 0 0 $value eq $check_value ? :
607 0 0 if $v
619 0 1 if $self->label
623 0 1 if ($code == 2 or $code == 1) { }
624 0 0 if ($self->base or $self->base_mbean) { }
629 0 0 if ($mode ne 'numeric') { }
637 0 1 if ($self->base or $self->base_mbean) { }
641 0 1 if ($mode ne 'numeric') { }
654 1 0 if ($c eq 'v') { }
659 1 0 $val =~ /\./ ? :
680 3 4 if ($p =~ /^(\%[\w\.\-]*)(\w)$/) { }
682 0 3 if ($what eq 'r' or $what eq 'q') { }
0 3 elsif ($what eq 'b') { }
1 2 elsif ($what eq 'u' or $what eq 'w') { }
0 2 elsif ($what eq 'f') { }
1 1 elsif ($what eq 'v') { }
0 1 elsif ($what eq 't') { }
0 1 elsif ($what eq 'c') { }
1 0 elsif ($what eq 'n') { }
0 0 elsif ($what eq 'd') { }
0 0 elsif ($what eq 'y') { }
0 0 elsif ($what eq 'z') { }
684 0 0 $what eq 'r' ? :
697 0 0 $code == 1 ? :
0 0 $code == 2 ? :
698 0 0 defined $val ? :
714 0 1 if ($args->{'prefix'}) { }
727 0 1 if ($mode ne 'numeric') { }
735 1 0 $val =~ /\./ ? :
778 9 0 if ($CHECK_CONFIG_KEYS->{$name}) { }
779 6 3 if defined $np->opts->{$name}
780 0 3 if ($self->{'config'}) { }