| line |
true |
false |
branch |
|
62
|
0 |
9 |
if $$self{'_type'} != 0 |
|
64
|
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'}) |
|
141
|
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} |
|
212
|
21 |
8 |
if exists $$self{'_end'}{$c} |
|
222
|
64 |
15 |
if exists $$self{'_end'}{$cf} |
|
225
|
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 '') |