| line |
true |
false |
branch |
|
51
|
0 |
0 |
if $$self{'_type'} != 2 |
|
53
|
0 |
0 |
if $$self{'_order'} != 1 |
|
57
|
0 |
0 |
unless $key =~ /^(start|order|type|minlen|maxlen|file|end|scale)$/ |
|
71
|
0 |
0 |
unless (-f $$self{'_file'} and -e $$self{'_file'}) |
|
76
|
0 |
0 |
unless -f $$self{'_file'} |
|
80
|
0 |
0 |
unless defined $$self{'_obj'} |
|
89
|
0 |
0 |
if $$self{'_minlen'} >= $$self{'_maxlen'} |
|
100
|
0 |
0 |
if $n < 0 |
|
119
|
0 |
0 |
unless defined $str |
|
120
|
0 |
0 |
if $str eq '' and $$self{'_minlen'} <= 0 |
|
124
|
0 |
0 |
if (defined $$self{'_sep'}) { } |
|
127
|
0 |
0 |
if $chars[0] eq '' |
|
128
|
0 |
0 |
if $chars[-1] eq $$self{'_sep'} |
|
141
|
0 |
0 |
if scalar @chars < $$self{'_minlen'} |
|
142
|
0 |
0 |
if scalar @chars > $$self{'_maxlen'} |
|
147
|
0 |
0 |
unless defined $self->str2num($c) |
|
159
|
0 |
0 |
unless wantarray |
|
192
|
0 |
0 |
if (@_ > 1) { } |
|
202
|
0 |
0 |
unless ref $x |
|
207
|
0 |
0 |
if (ref $$x{$k} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($k eq '_obj') { } |
|
|
0 |
0 |
elsif (ref $$x{$k} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $$x{$k} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $$x{$k}) { } |
|
268
|
0 |
0 |
unless defined $class |
|
271
|
0 |
0 |
if $class == 0 |
|
273
|
0 |
0 |
if $class == 1 |
|
284
|
0 |
0 |
unless ref $x |
|
285
|
0 |
0 |
unless $x->sign =~ /^[+-]$/ |
|
289
|
0 |
0 |
if ($int > 0) |
|
293
|
0 |
0 |
wantarray ? : |
|
301
|
0 |
0 |
if not defined $str or $str eq '' |
|
309
|
0 |
0 |
if $leftstr eq $str |
|
311
|
0 |
0 |
if $rightstr eq $str |
|
322
|
0 |
0 |
if ($rr - $ll > 1) |
|
325
|
0 |
0 |
if $mm == $ll |
|
326
|
0 |
0 |
if $mm == $rr |
|
338
|
0 |
0 |
if $middle == $left |
|
339
|
0 |
0 |
if $middle == $right |
|
343
|
0 |
0 |
if $middlestr eq $str |
|
350
|
0 |
0 |
if ($cmp < 0) { } |
|
359
|
0 |
0 |
if $right - $left == 1 |
|
369
|
0 |
0 |
if $char < 0 |
|
378
|
0 |
0 |
if $count < $$self{'_minlen'} |
|
379
|
0 |
0 |
if defined $$self{'_maxlen'} and $count > $$self{'_maxlen'} |
|
380
|
0 |
0 |
if $count == 0 |
|
384
|
0 |
0 |
if $count == 1 |
|
393
|
0 |
0 |
if $s ne '' |
|
402
|
0 |
0 |
if $count < $$self{'_minlen'} |
|
403
|
0 |
0 |
if defined $$self{'_maxlen'} and $count > $$self{'_maxlen'} |
|
404
|
0 |
0 |
if $count == 0 |
|
407
|
0 |
0 |
if $count == 1 |
|
416
|
0 |
0 |
if $s ne '' |
|
424
|
0 |
0 |
if ($$str{'_cache'} eq '') |
|
426
|
0 |
0 |
if $min <= 0 |
|
446
|
0 |
0 |
if ($$str{'_cache'} eq '') |
|
448
|
0 |
0 |
if $min >= 0 |
|
463
|
0 |
0 |
if $$self{'_obj'} |