| line |
true |
false |
branch |
|
85
|
58 |
782 |
if (ref $gotconf->{$n}) { } |
|
96
|
37 |
4 |
unless $n =~ /\%/ |
|
99
|
37 |
23 |
if (defined $gotconf->{'lineend'}) |
|
103
|
36 |
1 |
defined $endstring{$gotconf->{'lineend'}} ? : |
|
107
|
2 |
118 |
if (defined $gotconf->{$_} and $gotconf->{$_} eq "TAB") |
|
111
|
1 |
59 |
if $self->{'gotconfig'}{'black'} |
|
126
|
81 |
227 |
unless defined $self->{'config'}{$k} |
|
129
|
1 |
76 |
if ($self->{'config'}{'strict'} and not defined $self->{'config'}{'separator'}) |
|
142
|
30 |
71 |
ref $_[0] ? : |
|
146
|
14 |
87 |
if $self->{'config'}{'strict'} |
|
149
|
2 |
99 |
if (${$lr;} =~ /^\s*$/ and ${$lr;} =~ /^($nlend*)($lend)$/o) |
|
151
|
0 |
2 |
unless defined $self->{'config'}{'lineend'} |
|
154
|
2 |
0 |
if defined $self->{'title'} |
|
157
|
41 |
58 |
if (${$lr;} =~ /^\s*($zahl)(($seppl)$nlend*|)($lend)$/) { } |
|
|
0 |
58 |
elsif ($oc) { } |
|
161
|
1 |
40 |
unless (not defined $end or defined $self->{'config'}{'lineend'}) |
|
165
|
2 |
39 |
unless ($self->{'config'}{'text'}) |
|
174
|
1 |
1 |
if ($linecopy ne "") |
|
176
|
1 |
0 |
if (defined $self->{'title'}) { } |
|
182
|
40 |
0 |
if ($num =~ /\d/) |
|
184
|
33 |
7 |
unless (not defined $sep or defined $self->{'config'}{'separator'}) |
|
188
|
23 |
17 |
if ($#{$$self{"comments"};} > -1 and $#{$$self{"titles"};} > -1) |
|
198
|
0 |
58 |
if (${$lr;} =~ /^($self->{'config'}{'comregex'})($lend)$/) |
|
201
|
0 |
0 |
unless defined $self->{'config'}{'comchar'} |
|
203
|
0 |
0 |
unless defined $self->{'config'}{'lineend'} |
|
208
|
58 |
0 |
if (${$lr;} =~ /^($self->{'config'}{'comregex'})($nlend+)($lend)$/) |
|
210
|
33 |
25 |
if (defined $self->{'title'}) { } |
|
213
|
6 |
52 |
unless defined $self->{'config'}{'lineend'} |
|
215
|
23 |
35 |
unless defined $self->{'config'}{'comchar'} |
|
219
|
58 |
0 |
unless defined $quote |
|
221
|
20 |
38 |
if (${$lr;} =~ /^($self->{'config'}{'comregex'})($quote)($nlend*\2($seppl)\2*$nlend*)\2*($lend)$/) { } |
|
|
38 |
0 |
elsif (${$lr;} =~ /^($self->{'config'}{'comregex'})($quote?)($nlend*)($lend)$/) { } |
|
224
|
20 |
0 |
unless defined $self->{'config'}{'quote'} |
|
226
|
20 |
0 |
unless defined $self->{'config'}{'quotechar'} |
|
234
|
20 |
0 |
unless $self->{'config'}{'strict'} |
|
238
|
0 |
20 |
unless defined $self->{'config'}{'lineend'} |
|
240
|
0 |
20 |
unless defined $self->{'config'}{'comchar'} |
|
245
|
0 |
38 |
if ($2 ne '') { } |
|
248
|
0 |
0 |
unless defined $self->{'config'}{'quotechar'} |
|
250
|
0 |
0 |
unless defined $self->{'config'}{'quote'} |
|
257
|
0 |
38 |
unless defined $self->{'config'}{'lineend'} |
|
259
|
0 |
38 |
unless defined $self->{'config'}{'comchar'} |
|
263
|
24 |
14 |
if ($d =~ /($seppl)/) { } |
|
279
|
3 |
0 |
defined $self->{'config'}{'separator'} ? : |
|
290
|
1339 |
573 |
defined $self->{'config'}{'separator'} ? : |
|
|
10 |
1912 |
defined $self->{'config'}{'outsep'} ? : |
|
299
|
1318 |
1391 |
defined $self->{'config'}{'lineend'} ? : |
|
309
|
2 |
8 |
defined $self->{'guessquote'} ? : |
|
|
15 |
10 |
defined $self->{'config'}{'quote'} ? : |
|
313
|
12 |
9 |
defined $self->{'config'}{'quotechar'} ? : |
|
|
21 |
4 |
$want ? : |
|
322
|
39 |
770 |
defined $self->{'config'}{'comchar'} ? : |
|
328
|
0 |
1456 |
ref $_[0] ? : |
|
332
|
0 |
0 |
$self->{'config'}{'empty'} ? : |
|
|
0 |
1456 |
if ${$lr;} =~ /^$lend$/ |
|
333
|
3 |
1453 |
if ($self->{'config'}{'strict'}) { } |
|
338
|
3 |
0 |
if ($#ar > -1) |
|
343
|
3 |
1450 |
if ($self->{'config'}{'black'}) |
|
349
|
1453 |
0 |
if ($l =~ /^($zahl)(.*)$/) { } |
|
350
|
1450 |
3 |
if ($self->{'config'}{'text'}) { } |
|
385
|
12 |
1885 |
if (defined $cols_include) { } |
|
396
|
28 |
0 |
$k > -1 && $k < @{$ar;} ? : |
|
397
|
28 |
0 |
$k > -1 ? : |
|
401
|
0 |
1897 |
if (defined $cols_exclude) |
|
409
|
0 |
0 |
unless (grep {$_ == $i;} @{$cols_exclude;}) |
|
417
|
1433 |
464 |
if (defined $self->{'config'}{'numformat'}[0]) { } |
|
423
|
0 |
3586 |
unless (defined $v) |
|
426
|
2041 |
1545 |
unless defined $numform |
|
427
|
3586 |
0 |
if ($numform ne '') { } |
|
450
|
3 |
22 |
defined $cols_include ? : |
|
451
|
0 |
25 |
if (defined $cols_exclude) |
|
457
|
0 |
0 |
unless (grep {$_ == $i;} @{$cols_exclude;}) |
|
474
|
172 |
0 |
$k > -1 ? : |
|
475
|
0 |
172 |
unless defined $t |
|
486
|
1 |
783 |
ref $_[0] ? : |
|
494
|
0 |
0 |
ref $_[0] ? : |
|
495
|
0 |
0 |
if (defined $string) |
|
504
|
0 |
35 |
ref $_[0] ? : |
|
505
|
35 |
0 |
if (defined $string) |
|
519
|
0 |
0 |
if ($self->{'config'}{'strict'}) { } |