| line |
true |
false |
branch |
|
59
|
0 |
8 |
if $$self{'_type'} != 1 |
|
61
|
0 |
8 |
if $$self{'_order'} != 1 |
|
65
|
0 |
12 |
unless $key =~ /^(start|minlen|maxlen|sep|sets|end|charlen|scale)$/ |
|
79
|
0 |
8 |
if ref $$value{'sets'} ne 'HASH' |
|
89
|
1 |
7 |
if exists $$value{'start'} |
|
90
|
0 |
8 |
if exists $$value{'end'} |
|
91
|
0 |
8 |
if exists $$value{'chars'} |
|
93
|
0 |
8 |
unless defined $$self{'_sets'}{'0'} |
|
98
|
0 |
24 |
if ref $$sets{$set} ne 'ARRAY' and ref $$sets{$set} ne 'Math::String::Charset' |
|
104
|
19 |
5 |
if ref $$sets{$set} eq 'ARRAY' |
|
110
|
6 |
2 |
unless defined $$self{'_clen'} or defined $$self{'_sep'} |
|
121
|
73 |
114 |
if exists $$end{$_} |
|
126
|
6 |
2 |
unless (defined $$self{'_sep'}) |
|
131
|
0 |
19 |
if $$self{'_sets'}{$_}->charlen != $$self{'_clen'} |
|
140
|
8 |
0 |
if ($$self{'_minlen'} <= 0) { } |
|
168
|
4 |
4 |
if ($$self{'_cnum'}->is_zero) |
|
170
|
0 |
4 |
if $$self{'_minlen'} == 1 |
|
172
|
0 |
4 |
if ($$self{'_count'}[2] == 0) |
|
174
|
0 |
0 |
if $$self{'_minlen'} == 2 |
|
178
|
0 |
8 |
if $$self{'_minlen'} > $$self{'_maxlen'} |
|
207
|
0 |
12 |
if $max < 1 |
|
208
|
4 |
8 |
if $max <= $$self{'_cnt'} |
|
223
|
0 |
87 |
if exists $$sets{$j} and exists $$sets{$r} |
|
225
|
42 |
45 |
unless defined $$spat[$j] |
|
253
|
0 |
15 |
unless defined $str |
|
254
|
1 |
14 |
if $str eq '' and $$self{'_minlen'} <= 0 |
|
258
|
1 |
13 |
if (defined $$self{'_sep'}) { } |
|
261
|
0 |
1 |
if $chars[0] eq '' |
|
262
|
0 |
1 |
if $chars[-1] eq $$self{'_sep'} |
|
273
|
0 |
14 |
if scalar @chars < $$self{'_minlen'} |
|
274
|
0 |
14 |
if scalar @chars > $$self{'_maxlen'} |
|
277
|
1 |
13 |
unless defined $$self{'_start'}->map($chars[0]) |
|
278
|
1 |
12 |
if @chars == 1 |
|
282
|
1 |
11 |
if $$self{'_cnt'} < $d |
|
286
|
5 |
31 |
unless defined $$spat[$k++]->map($c) |
|
314
|
0 |
0 |
wantarray ? : |
|
325
|
0 |
0 |
wantarray ? : |
|
333
|
0 |
0 |
wantarray ? : |
|
343
|
15 |
2 |
unless ref $x |
|
344
|
0 |
17 |
unless $x->sign =~ /^[+-]$/ |
|
345
|
2 |
15 |
if ($x->is_zero) |
|
347
|
1 |
1 |
wantarray ? : |
|
351
|
5 |
10 |
if ($x <= $j) |
|
354
|
0 |
5 |
wantarray ? : |
|
366
|
0 |
10 |
if $$self{'_cnt'} < $d |
|
368
|
10 |
0 |
unless defined $s |
|
386
|
0 |
10 |
wantarray ? : |
|
398
|
2 |
22 |
if $i == 0 |
|
403
|
5 |
17 |
if (not defined $$self{'_sep'} and $i == $clen) |
|
405
|
0 |
5 |
unless exists $$map{$str} |
|
413
|
13 |
4 |
if (not defined $$self{'_sep'}) { } |
|
415
|
0 |
13 |
if $i % $clen != 0 |
|
417
|
1 |
12 |
if $$self{'_cnt'} < $c |
|
439
|
0 |
4 |
if $chars[0] eq '' |
|
440
|
0 |
4 |
if $chars[-1] eq $$self{'_sep'} |
|
442
|
0 |
4 |
if $$self{'_cnt'} < $c |
|
470
|
0 |
4 |
if $count < $$self{'_minlen'} |
|
471
|
0 |
4 |
if defined $$self{'_maxlen'} and $count > $$self{'_maxlen'} |
|
472
|
1 |
3 |
if $count == 0 |
|
474
|
1 |
2 |
if $count == 1 |
|
485
|
0 |
2 |
if $s ne '' |
|
494
|
0 |
4 |
if $count < $$self{'_minlen'} |
|
495
|
0 |
4 |
if defined $$self{'_maxlen'} and $count > $$self{'_maxlen'} |
|
496
|
1 |
3 |
if $count == 0 |
|
498
|
1 |
2 |
if $count == 1 |
|
509
|
0 |
2 |
if $s ne '' |
|
518
|
0 |
1 |
if ($$str{'_cache'} eq '') |
|
520
|
0 |
0 |
if $min <= 0 |
|
540
|
0 |
1 |
if ($$str{'_cache'} eq '') |
|
542
|
0 |
0 |
if $min >= 0 |