| line |
true |
false |
branch |
|
59
|
2 |
118 |
if (ref $value eq 'HASH') { }
|
|
61
|
3 |
3 |
if defined $$value{$key}
|
|
65
|
112 |
6 |
if (defined $value)
|
|
68
|
101 |
17 |
if ($code)
|
|
71
|
32 |
85 |
if ($format)
|
|
82
|
117 |
173 |
if (scalar @_)
|
|
85
|
2 |
115 |
unless _is_currency_code($code)
|
|
99
|
2 |
6 |
unless _is_currency_code($from)
|
|
102
|
2 |
4 |
unless _is_currency_code($to)
|
|
105
|
1 |
3 |
if (uc $from eq uc $to)
|
|
109
|
2 |
1 |
unless ($self->converter)
|
|
136
|
1 |
27 |
unless ($format)
|
|
145
|
2 |
26 |
unless _is_currency_code($code)
|
|
159
|
156 |
3 |
defined $_[0] ? :
|
|
161
|
3 |
156 |
unless $value =~ /^[A-Z]{3}$/
|
|
163
|
13 |
143 |
unless (keys %codes)
|
|
173
|
25 |
1 |
if ($] >= 5.008)
|
|
190
|
15 |
1 |
if ($value)
|
|
191
|
13 |
2 |
unless ('Class::Inspector'->loaded($value))
|
|
197
|
1 |
12 |
if $@
|
|
214
|
3 |
4 |
if (&Scalar::Util::blessed($other) and $other->isa('Data::Currency'))
|
|
215
|
1 |
2 |
if $self->code ne $other->code
|
|
221
|
5 |
1 |
defined $other ? :
|
|
228
|
3 |
3 |
if (&Scalar::Util::blessed($other) and $other->isa('Data::Currency'))
|
|
229
|
1 |
2 |
if $self->code ne $other->code
|
|
235
|
4 |
1 |
defined $other ? :
|
|
236
|
2 |
3 |
$reversed ? :
|
|
243
|
2 |
3 |
if (&Scalar::Util::blessed($other) and $other->isa('Data::Currency'))
|
|
244
|
1 |
1 |
if $self->code ne $other->code
|
|
250
|
3 |
1 |
defined $other ? :
|
|
257
|
4 |
3 |
if (&Scalar::Util::blessed($other) and $other->isa('Data::Currency'))
|
|
258
|
1 |
3 |
if $self->code ne $other->code
|
|
264
|
5 |
1 |
defined $other ? :
|
|
266
|
2 |
4 |
if $other == 0 or $reversed and $self->value == 0
|
|
270
|
1 |
3 |
$reversed ? :
|
|
277
|
4 |
2 |
if (&Scalar::Util::blessed($other) and $other->isa('Data::Currency'))
|
|
278
|
1 |
3 |
if $self->code ne $other->code
|
|
284
|
1 |
4 |
if $other == 0 or $reversed and $self->value == 0
|
|
288
|
1 |
3 |
$reversed ? :
|
|
295
|
2 |
3 |
if (&Scalar::Util::blessed($other) and $other->isa('Data::Currency'))
|
|
296
|
0 |
2 |
if $self->code ne $other->code
|
|
302
|
1 |
4 |
$reversed ? :
|
|
308
|
3 |
2 |
if (&Scalar::Util::blessed($other) and $other->isa('Data::Currency'))
|
|
309
|
0 |
3 |
if $self->code ne $other->code
|
|
315
|
1 |
4 |
$reversed ? :
|