| line |
true |
false |
branch |
|
65
|
0 |
9 |
if $self->{'_type'} != 0 |
|
67
|
0 |
9 |
if $self->{'_order'} != 2 |
|
70
|
0 |
27 |
unless $key =~ /^(start|minlen|maxlen|sep|bi|end|charlen|scale)$/ |
|
84
|
0 |
9 |
if ref $bi ne 'HASH' |
|
88
|
6 |
3 |
if (exists $value->{'end'}) { } |
|
102
|
9 |
0 |
if (exists $value->{'start'}) { } |
|
112
|
0 |
0 |
if @{$bi->{$c};} > 0 |
|
122
|
9 |
0 |
unless (defined $self->{'_sep'}) |
|
135
|
7 |
39 |
if @{$bi->{$c};} == 0 |
|
139
|
4 |
75 |
unless defined $self->{'_bi'}{$f} |
|
140
|
7 |
72 |
if @{$bi->{$f};} == 0 |
|
141
|
79 |
0 |
unless (defined $self->{'_sep'}) |
|
144
|
0 |
79 |
if length $f != $self->{'_clen'} |
|
155
|
22 |
8 |
if exists $end->{$_} |
|
164
|
29 |
1 |
if not defined $self->{'_bi'}{$c} or @{$self->{'_bi'}{$c};} > 0 |
|
178
|
38 |
12 |
if exists $end->{$c} |
|
215
|
21 |
8 |
if exists $self->{'_end'}{$c} |
|
224
|
64 |
15 |
if exists $self->{'_end'}{$cf} |
|
228
|
27 |
23 |
if exists $self->{'_sm'}{$c} |
|
234
|
1 |
8 |
if ($self->{'_cnum'}->is_zero) |
|
236
|
0 |
1 |
if $self->{'_minlen'} == 1 |
|
238
|
1 |
0 |
if ($self->{'_count'}[2] == 0) |
|
240
|
0 |
1 |
if $self->{'_minlen'} == 2 |
|
259
|
0 |
1 |
if $self->class(1) != 0 or $self->class(2) != 0 |
|
292
|
0 |
8 |
if $max < 1 |
|
293
|
1 |
7 |
if $max <= $self->{'_cnt'} |
|
347
|
19 |
25 |
if exists $self->{'_sm'}{$c} |
|
381
|
0 |
7 |
unless defined $str |
|
382
|
0 |
7 |
if $str eq '' and $self->{'_minlen'} <= 0 |
|
386
|
0 |
7 |
if (defined $self->{'_sep'}) { } |
|
389
|
0 |
0 |
if $chars[0] eq '' |
|
390
|
0 |
0 |
if $chars[-1] eq $self->{'_sep'} |
|
401
|
0 |
7 |
if scalar @chars < $self->{'_minlen'} |
|
402
|
0 |
7 |
if scalar @chars > $self->{'_maxlen'} |
|
406
|
1 |
6 |
unless exists $$map{$chars[0]} |
|
408
|
0 |
6 |
if @chars == 1 |
|
418
|
1 |
12 |
unless exists $$map{$chars[$i - 1]} |
|
419
|
4 |
8 |
unless exists $$map{$chars[$i - 1]}{$chars[$i]} |
|
431
|
0 |
0 |
unless ref $x |
|
432
|
0 |
0 |
unless $x->sign =~ /^[+-]$/ |
|
433
|
0 |
0 |
if ($x->is_zero) |
|
435
|
0 |
0 |
wantarray ? : |
|
439
|
0 |
0 |
if ($x <= $j) |
|
442
|
0 |
0 |
wantarray ? : |
|
450
|
0 |
0 |
wantarray ? : |
|
462
|
1 |
3 |
if $i == 0 |
|
465
|
3 |
0 |
if $i == $clen |
|
466
|
0 |
0 |
if (not defined $self->{'_sep'}) { } |
|
469
|
0 |
0 |
if $class > $self->{'_cnt'} |
|
490
|
0 |
0 |
if $chars[0] eq '' |
|
508
|
0 |
0 |
if $x->is_zero or $x->is_nan or $x->is_inf |
|
520
|
2 |
11 |
if $count < $self->{'_minlen'} |
|
521
|
1 |
10 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
522
|
1 |
9 |
if $count == 0 |
|
524
|
1 |
8 |
if $count == 1 |
|
529
|
8 |
0 |
if defined $f |
|
541
|
8 |
21 |
if ($level >= $count) |
|
543
|
8 |
0 |
if exists $self->{'_end'}{$ending} |
|
547
|
0 |
21 |
unless exists $self->{'_bi'}{$ending} |
|
551
|
20 |
1 |
if defined $rc |
|
563
|
6 |
22 |
if ($level >= $count) |
|
565
|
6 |
0 |
if exists $self->{'_end'}{$ending} |
|
569
|
6 |
16 |
unless exists $self->{'_bi'}{$ending} |
|
574
|
13 |
3 |
if defined $rc |
|
584
|
2 |
8 |
if $count < $self->{'_minlen'} |
|
585
|
0 |
8 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
586
|
1 |
7 |
if $count == 0 |
|
588
|
1 |
6 |
if $count == 1 |
|
593
|
6 |
6 |
if defined $f |
|
603
|
0 |
0 |
if ($str->{'_cache'} eq '') |
|
626
|
0 |
0 |
if ($str->{'_cache'} eq '') |