| line |
true |
false |
branch |
|
55
|
0 |
13 |
unless open $self->{'_srcfh'}, "<", $self->{'SrcFile'} |
|
57
|
8 |
5 |
if ($param->{'DataFile'}) { } |
|
65
|
0 |
5 |
if ($param->{'Delimit'}) |
|
71
|
3 |
10 |
if (defined $param->{'Version'}) |
|
73
|
0 |
3 |
unless _version_check($param->{'Version'}) |
|
78
|
1 |
12 |
if ($param->{'FcOrder'}) { } |
|
|
0 |
12 |
elsif ($param->{'Order'}) { } |
|
|
0 |
12 |
elsif ($param->{'Random'}) { } |
|
86
|
2 |
11 |
if $param->{'Rotate'} |
|
96
|
11 |
0 |
grep({$ver == $_;} @VERSIONS) ? : |
|
120
|
21 |
35 |
if (not defined $l or $l eq "$self->{'Delimit'}\n") |
|
126
|
0 |
21 |
unless $curlen |
|
131
|
10 |
11 |
if ($curlen < $self->{'ShortLen'}) |
|
135
|
9 |
12 |
if ($curlen > $self->{'LongLen'}) |
|
151
|
0 |
8 |
unless open my $fh, "<", $file |
|
166
|
0 |
8 |
unless (_version_check($self->{'Version'})) |
|
170
|
0 |
8 |
if ($self->{'LongLen'} < $self->{'ShortLen'}) |
|
174
|
0 |
8 |
if ($self->{'Flags'} > &sum(values %STRFLAGS)) |
|
185
|
21 |
18 |
if ($self->{'Version'} == 1) { } |
|
|
18 |
0 |
elsif ($self->{'Version'} == 2) { } |
|
188
|
0 |
21 |
if $u |
|
208
|
4 |
4 |
if $fc |
|
237
|
0 |
0 |
if ($self->{'Flags'} & $STRFLAGS{'ORDERED'}) |
|
248
|
1 |
59 |
if $n >= $self->{'StrNum'} |
|
258
|
59 |
105 |
if not defined $l or $l eq "$self->{'Delimit'}\n" |
|
265
|
5 |
54 |
if $self->{'Flags'} & $STRFLAGS{'ROTATED'} |
|
293
|
0 |
81 |
if $get =~ /^_/u or not defined $self->{$get} |
|
304
|
0 |
3 |
unless open my $fh, ">", $file |
|
321
|
8 |
6 |
if ($self->{'Version'} == 1) { } |
|
|
6 |
0 |
elsif ($self->{'Version'} == 2) { } |