Branch Coverage

blib/lib/Data/Money.pm
Criterion Covered Total %
branch 61 72 84.7


line true false branch
162 115 81 if $dec
165 3 192 if $exp > $prec
212 127 0 unless exists $param{'code'} and defined $param{'code'}
213 127 0 unless exists $param{'format'} and defined $param{'format'}
214 0 127 unless exists $param{'value'} and defined $param{'value'}
244 3 10 $str eq '' ? :
270 4 3 if $self->value < 0
288 3 6 if (ref $num eq ref $self)
289 2 1 if $self->code ne $num->code
309 2 1 if (ref $num eq ref $self) { }
310 1 1 if $self->code ne $num->code
336 0 18 unless _is_CurrencyCode($code)
346 0 18 if ($self->value < 0) { }
365 4 5 if (ref $num eq ref $self)
366 1 3 if $self->code ne $num->code
373 3 2 if $swap
388 2 1 if (ref $num eq ref $self) { }
389 1 1 if $self->code ne $num->code
411 3 2 if (ref $num eq ref $self)
412 1 2 if $self->code ne $num->code
432 3 2 if (ref $num eq ref $self) { }
433 1 2 if $self->code ne $num->code
455 3 2 if (ref $num eq ref $self)
456 1 2 if $self->code ne $num->code
479 3 2 if (ref $num eq ref $self) { }
480 1 2 if $self->code ne $num->code
503 1 0 if (ref $num eq ref $self)
504 1 0 if $self->code ne $num->code
528 16 56 if (ref $num eq ref $self) { }
537 4 68 if $self->code ne $other->code
543 6 62 $swap ? :
563 1 364 unless _is_CurrencyCode($code)
582 18 0 if ($] >= "5.008")
592 0 383 unless defined $code
601 0 8 $number < 0 ? :
604 8 0 if ($places < 0) { }