Branch Coverage

blib/lib/Number/Uncertainty.pm
Criterion Covered Total %
branch 76 126 60.3


line true false branch
114 11 216 if (@_)
133 6 20 if (@_)
139 2 24 if (defined $self->bound)
144 23 1 if (defined $self->lower and defined $self->upper) { }
166 1 47 if (@_)
170 0 48 if (defined $self->bound)
190 1 46 if (@_)
194 0 47 if (defined $self->bound)
213 1 74 if (@_)
218 18 57 if (defined $self->bound)
219 1 17 if ($self->bound eq 'upper') { }
17 0 elsif ($self->bound eq 'lower') { }
227 46 11 if (defined $$self{'LOWER'}) { }
248 1 82 if (@_)
253 18 65 if (defined $self->bound)
254 17 1 if ($self->bound eq 'upper') { }
1 0 elsif ($self->bound eq 'lower') { }
262 54 11 if (defined $$self{'UPPER'}) { }
285 2 580 if (@_)
287 1 1 if (lc $flag eq 'upper') { }
1 0 elsif (lc $flag eq 'lower') { }
320 0 11 unless @_
325 0 11 unless (defined $args{'Value'} or defined $args{'value'})
332 23 54 if exists $args{$key}
357 0 2 if (defined $self->bound) { }
358 0 0 if ($self->bound eq 'lower') { }
0 0 elsif ($self->bound eq 'upper') { }
364 2 0 if ($$self{'UPPER'} == $$self{'LOWER'}) { }
387 0 63 unless defined $other
388 0 63 unless UNIVERSAL::isa($other, 'Number::Uncertainty')
391 4 59 if (defined $self->bound and defined $other->bound)
394 4 0 if ($self->bound eq 'upper' and $self->bound eq 'upper' or $self->bound eq 'lower' and $self->bound eq 'lower')
400 0 0 if ($self->bound eq 'lower') { }
0 0 elsif ($self->bound eq 'upper') { }
408 0 0 if ($lower <= $upper) { }
417 16 43 if (defined $self->bound)
421 8 8 if ($self->bound eq 'upper')
422 8 0 if ($other->max >= $self->max) { }
430 8 0 if ($self->bound eq 'lower')
431 8 0 if ($other->min <= $self->min) { }
440 16 27 if (defined $other->bound)
444 8 8 if ($other->bound eq 'upper')
445 8 0 if ($self->max >= $other->max) { }
453 8 0 if ($other->bound eq 'lower')
454 8 0 if ($self->min <= $other->min) { }
464 25 2 if ($other->value <= $self->max and $other->value >= $self->min)
471 0 2 if ($other->min <= $self->max and $other->max >= $self->max)
478 0 2 if ($other->max >= $self->min and $other->min <= $self->min)
484 0 2 if ($other->max >= $self->max and $other->min <= $self->min)
517 0 2 if (not UNIVERSAL::isa($other, 'Number::Uncertainty')) { }
518 0 0 if (defined $self->error) { }
524 2 0 if (defined $self->error) { }
525 2 0 if (defined $other->error) { }
531 0 0 if (defined $other->error) { }
548 0 2 if (not UNIVERSAL::isa($other, 'Number::Uncertainty')) { }
549 0 0 if (defined $self->error) { }
555 2 0 if (defined $self->error) { }
556 2 0 if (defined $other->error) { }
562 0 0 if (defined $other->error) { }
581 0 1 unless (UNIVERSAL::isa($other, 'Number::Uncertainty'))
582 0 0 if (defined $self->error) { }
593 0 1 if (defined $self->bound or defined $other->bound)
597 1 0 if (defined $self->error and defined $other->error)