Branch Coverage

blib/lib/JMX/Jmx4Perl/Request.pm
Criterion Covered Total %
branch 33 72 45.8


line true false branch
232 0 20 if (ref $type eq 'HASH')
236 0 20 unless $TYPES->{$type}
239 20 0 unless ($self)
240 0 20 if (ref $_[0] eq 'HASH') { }
249 2 18 if (ref $opts eq 'HASH')
252 2 0 if ($self->{'method'})
257 20 0 if ($type eq 'read') { }
0 0 elsif ($type eq 'write') { }
0 0 elsif ($type eq 'exec') { }
0 0 elsif ($type eq 'list') { }
0 0 elsif ($type eq 'search') { }
0 0 elsif ($type eq 'version') { }
262 2 18 if (ref $self->{'attribute'} eq 'ARRAY')
264 1 1 if (defined $method and $method eq 'GET')
267 1 0 if ref $self->{'attribute'} eq 'ARRAY'
311 3 5 if (defined $value)
312 0 3 if length $value and not uc($value) =~ /^(POST|GET)$/i
315 6 2 defined $self->{'method'} ? :
328 0 16 unless $mbean
330 4 12 if $domain =~ /[*?]/
331 3 9 if $rest =~ /\*$/
338 6 6 if ($rest =~ /^"/) { }
342 1 5 if $value =~ /(?
346 3 3 if $value =~ /[\*\?]/
368 19 0 if ($self->{'type'} eq 'read' or $self->{'type'} eq 'write')
369 0 19 unless $self->{'mbean'}
370 0 0 if not $self->{'attribute'} and $self->{'path'}
372 0 19 if ($self->{'type'} eq 'write')
373 0 0 unless defined $self->{'value'}
375 0 19 if ($self->{'type'} eq 'exec')
376 0 0 unless $self->{'mbean'}
377 0 0 unless $self->{'operation'}
385 0 0 $self->{'type'} ? :
388 0 0 if defined $self->{$k}
392 0 0 if defined $self->{$k}
394 0 0 if keys %config