| line |
true |
false |
branch |
|
63
|
0 |
9 |
if $self->{'_type'} != 0 |
|
65
|
0 |
9 |
if $self->{'_order'} != 2 |
|
68
|
0 |
27 |
unless $key =~ /^(start|minlen|maxlen|sep|bi|end|charlen|scale)$/ |
|
82
|
0 |
9 |
if ref $bi ne 'HASH' |
|
86
|
6 |
3 |
if (exists $value->{'end'}) { } |
|
100
|
9 |
0 |
if (exists $value->{'start'}) { } |
|
110
|
0 |
0 |
if @{$bi->{$c};} > 0 |
|
120
|
9 |
0 |
unless (defined $self->{'_sep'}) |
|
133
|
7 |
39 |
if @{$bi->{$c};} == 0 |
|
137
|
4 |
75 |
unless defined $self->{'_bi'}{$f} |
|
138
|
7 |
72 |
if @{$bi->{$f};} == 0 |
|
139
|
79 |
0 |
unless (defined $self->{'_sep'}) |
|
142
|
0 |
79 |
if length $f != $self->{'_clen'} |
|
153
|
22 |
8 |
if exists $end->{$_} |
|
162
|
29 |
1 |
if not defined $self->{'_bi'}{$c} or @{$self->{'_bi'}{$c};} > 0 |
|
176
|
38 |
12 |
if exists $end->{$c} |
|
213
|
21 |
8 |
if exists $self->{'_end'}{$c} |
|
222
|
64 |
15 |
if exists $self->{'_end'}{$cf} |
|
226
|
27 |
23 |
if exists $self->{'_sm'}{$c} |
|
232
|
1 |
8 |
if ($self->{'_cnum'}->is_zero) |
|
234
|
0 |
1 |
if $self->{'_minlen'} == 1 |
|
236
|
1 |
0 |
if ($self->{'_count'}[2] == 0) |
|
238
|
0 |
1 |
if $self->{'_minlen'} == 2 |
|
257
|
0 |
1 |
if $self->class(1) != 0 or $self->class(2) != 0 |
|
290
|
0 |
8 |
if $max < 1 |
|
291
|
1 |
7 |
if $max <= $self->{'_cnt'} |
|
345
|
19 |
25 |
if exists $self->{'_sm'}{$c} |
|
379
|
0 |
7 |
unless defined $str |
|
380
|
0 |
7 |
if $str eq '' and $self->{'_minlen'} <= 0 |
|
384
|
0 |
7 |
if (defined $self->{'_sep'}) { } |
|
387
|
0 |
0 |
if $chars[0] eq '' |
|
388
|
0 |
0 |
if $chars[-1] eq $self->{'_sep'} |
|
399
|
0 |
7 |
if scalar @chars < $self->{'_minlen'} |
|
400
|
0 |
7 |
if scalar @chars > $self->{'_maxlen'} |
|
404
|
1 |
6 |
unless exists $$map{$chars[0]} |
|
406
|
0 |
6 |
if @chars == 1 |
|
416
|
1 |
12 |
unless exists $$map{$chars[$i - 1]} |
|
417
|
4 |
8 |
unless exists $$map{$chars[$i - 1]}{$chars[$i]} |
|
429
|
0 |
0 |
unless ref $x |
|
430
|
0 |
0 |
unless $x->sign =~ /^[+-]$/ |
|
431
|
0 |
0 |
if ($x->is_zero) |
|
433
|
0 |
0 |
wantarray ? : |
|
437
|
0 |
0 |
if ($x <= $j) |
|
440
|
0 |
0 |
wantarray ? : |
|
448
|
0 |
0 |
wantarray ? : |
|
460
|
1 |
3 |
if $i == 0 |
|
463
|
3 |
0 |
if $i == $clen |
|
464
|
0 |
0 |
if (not defined $self->{'_sep'}) { } |
|
467
|
0 |
0 |
if $class > $self->{'_cnt'} |
|
488
|
0 |
0 |
if $chars[0] eq '' |
|
506
|
0 |
0 |
if $x->is_zero or $x->is_nan or $x->is_inf |
|
518
|
2 |
11 |
if $count < $self->{'_minlen'} |
|
519
|
1 |
10 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
520
|
1 |
9 |
if $count == 0 |
|
522
|
1 |
8 |
if $count == 1 |
|
527
|
8 |
0 |
if defined $f |
|
539
|
8 |
21 |
if ($level >= $count) |
|
541
|
8 |
0 |
if exists $self->{'_end'}{$ending} |
|
545
|
0 |
21 |
unless exists $self->{'_bi'}{$ending} |
|
549
|
20 |
1 |
if defined $rc |
|
561
|
6 |
22 |
if ($level >= $count) |
|
563
|
6 |
0 |
if exists $self->{'_end'}{$ending} |
|
567
|
6 |
16 |
unless exists $self->{'_bi'}{$ending} |
|
572
|
13 |
3 |
if defined $rc |
|
582
|
2 |
8 |
if $count < $self->{'_minlen'} |
|
583
|
0 |
8 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
584
|
1 |
7 |
if $count == 0 |
|
586
|
1 |
6 |
if $count == 1 |
|
591
|
6 |
6 |
if defined $f |
|
601
|
0 |
0 |
if ($str->{'_cache'} eq '') |
|
624
|
0 |
0 |
if ($str->{'_cache'} eq '') |