Branch Coverage

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


line true false branch
161 112 81 if $dec
164 3 189 if $exp > $prec
211 125 0 unless exists $param{'code'} and defined $param{'code'}
212 125 0 unless exists $param{'format'} and defined $param{'format'}
213 0 125 unless exists $param{'value'} and defined $param{'value'}
243 3 30 $str eq '' ? :
269 4 3 if $self->value < 0
287 3 6 if (ref $num eq ref $self)
288 2 1 if $self->code ne $num->code
308 2 1 if (ref $num eq ref $self) { }
309 1 1 if $self->code ne $num->code
335 0 16 unless _is_CurrencyCode($code)
345 0 16 if ($self->value < 0) { }
364 4 5 if (ref $num eq ref $self)
365 1 3 if $self->code ne $num->code
372 3 2 if $swap
387 2 1 if (ref $num eq ref $self) { }
388 1 1 if $self->code ne $num->code
410 3 2 if (ref $num eq ref $self)
411 1 2 if $self->code ne $num->code
431 3 2 if (ref $num eq ref $self) { }
432 1 2 if $self->code ne $num->code
454 3 2 if (ref $num eq ref $self)
455 1 2 if $self->code ne $num->code
478 3 2 if (ref $num eq ref $self) { }
479 1 2 if $self->code ne $num->code
502 1 0 if (ref $num eq ref $self)
503 1 0 if $self->code ne $num->code
527 16 56 if (ref $num eq ref $self) { }
536 4 68 if $self->code ne $other->code
542 6 62 $swap ? :
562 1 379 unless _is_CurrencyCode($code)
581 16 0 if ($] >= 5.008)
592 0 396 unless defined $code
601 0 8 $number < 0 ? :
604 8 0 if ($places < 0) { }