Branch Coverage

blib/lib/JMX/Jmx4Perl/Request.pm
Criterion Covered Total %
branch 38 72 52.7


line true false branch
232 0 24 if (ref $type eq 'HASH')
236 0 24 unless $TYPES->{$type}
239 24 0 unless ($self)
240 0 24 if (ref $_[0] eq 'HASH') { }
249 2 22 if (ref $opts eq 'HASH')
252 2 0 if ($self->{'method'})
257 20 4 if ($type eq 'read') { }
0 4 elsif ($type eq 'write') { }
0 4 elsif ($type eq 'exec') { }
4 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'
312 3 5 if (defined $value)
313 0 3 if length $value and not uc($value) =~ /^(POST|GET)$/i
316 6 2 defined $self->{'method'} ? :
329 0 16 unless $mbean
331 4 12 if $domain =~ /[*?]/
332 3 9 if $rest =~ /\*$/
339 6 6 if ($rest =~ /^"/) { }
343 1 5 if $value =~ /(?
347 3 3 if $value =~ /[\*\?]/
369 19 4 if ($self->{'type'} eq 'read' or $self->{'type'} eq 'write')
370 0 19 unless $self->{'mbean'}
371 0 0 if not $self->{'attribute'} and $self->{'path'}
373 0 23 if ($self->{'type'} eq 'write')
374 0 0 unless defined $self->{'value'}
376 0 23 if ($self->{'type'} eq 'exec')
377 0 0 unless $self->{'mbean'}
378 0 0 unless $self->{'operation'}
386 0 0 $self->{'type'} ? :
389 0 0 if defined $self->{$k}
393 0 0 if defined $self->{$k}
395 0 0 if keys %config