| line |
true |
false |
branch |
|
104
|
0 |
0 |
unless (defined $prefix) |
|
113
|
0 |
0 |
if ($prefix->error) |
|
135
|
0 |
0 |
unless ($string =~ /^[0123456789]+/ or $string =~ /^[012345789]*\.[0123456789]+/ or $string =~ /^\.[0123456789]+/) |
|
149
|
0 |
0 |
if ($string =~ /^[0123456789]+$/ or $string =~ /^[012345789]*\.[0123456789]+$/ or $string =~ /^\.[0123456789]+$/) |
|
177
|
0 |
0 |
if (defined $measure) |
|
194
|
0 |
0 |
if (defined $measure) |
|
223
|
0 |
0 |
unless ($self->errorblank) |
|
248
|
0 |
0 |
unless ($self->errorblank) |
|
252
|
0 |
0 |
unless (defined $measure) |
|
277
|
0 |
0 |
unless ($self->errorblank) |
|
299
|
0 |
0 |
unless ($self->errorblank) |
|
303
|
0 |
0 |
unless (defined $number) |
|
311
|
0 |
0 |
unless ($number =~ /^[0123456789]+/ or $number =~ /^[012345789]*\.[0123456789]+/ or $number =~ /^\.[0123456789]+/) |
|
345
|
0 |
0 |
unless ($self->errorblank) |
|
370
|
0 |
0 |
unless ($self->errorblank) |
|
375
|
0 |
0 |
unless (defined $prefix) |
|
380
|
0 |
0 |
unless (defined $self->{'prefixes'}{$prefix}) |
|
392
|
0 |
0 |
if ($prefix eq '') |
|
419
|
0 |
0 |
unless ($self->errorblank) |
|
425
|
0 |
0 |
if ($self->{'long'}) { } |
|
451
|
0 |
0 |
unless ($self->errorblank) |
|
455
|
0 |
0 |
if ($self->{'prefix'} eq '') |
|
479
|
0 |
0 |
unless ($self->errorblank) |