Branch Coverage

blib/lib/Locale/Object/Currency.pm
Criterion Covered Total %
branch 29 34 85.2


line true false branch
29 0 385 unless scalar keys %params == 1
40 0 385 unless exists $allowed_params{$parameter}
46 372 13 if ($parameter eq 'country_code') { }
12 1 elsif ($parameter eq 'code') { }
63 0 385 unless $result
65 384 1 if (defined @{$result;}[0]) { }
77 92 292 if $currency
112 0 292 unless my $code = $self->code
148 0 8 unless $self->{'_name'}
151 5 3 unless $self->{'_countries'}
154 6 2 if wantarray
194 292 308 if (@_)
207 292 4 if (@_)
220 292 1 if (@_)
233 292 1 if (@_)
246 292 1 if (@_)
259 292 1 if (@_)