| line |
true |
false |
branch |
|
84
|
55 |
743 |
if (ref $gotconf->{$n}) { } |
|
95
|
37 |
4 |
unless $n =~ /\%/ |
|
98
|
34 |
23 |
if (defined $gotconf->{'lineend'}) |
|
102
|
33 |
1 |
defined $endstring{$gotconf->{'lineend'}} ? : |
|
106
|
2 |
112 |
if (defined $gotconf->{$_} and $gotconf->{$_} eq 'TAB') |
|
110
|
1 |
56 |
if $self->{'gotconfig'}{'black'} |
|
125
|
78 |
218 |
unless defined $self->{'config'}{$k} |
|
128
|
1 |
73 |
if ($self->{'config'}{'strict'} and not defined $self->{'config'}{'separator'}) |
|
141
|
30 |
62 |
ref $_[0] ? : |
|
145
|
14 |
78 |
if $self->{'config'}{'strict'} |
|
148
|
2 |
90 |
if (${$lr;} =~ /^\s*$/ and ${$lr;} =~ /^($nlend*)($lend)$/o) |
|
150
|
0 |
2 |
unless defined $self->{'config'}{'lineend'} |
|
153
|
2 |
0 |
if defined $self->{'title'} |
|
156
|
38 |
52 |
if (${$lr;} =~ /^\s*($zahl)(($seppl)$nlend*|)($lend)$/) { } |
|
|
0 |
52 |
elsif ($oc) { } |
|
160
|
1 |
37 |
unless (not defined $end or defined $self->{'config'}{'lineend'}) |
|
164
|
2 |
36 |
unless ($self->{'config'}{'text'}) |
|
173
|
1 |
1 |
if ($linecopy ne '') |
|
175
|
1 |
0 |
if (defined $self->{'title'}) { } |
|
181
|
37 |
0 |
if ($num =~ /\d/) |
|
183
|
30 |
7 |
unless (not defined $sep or defined $self->{'config'}{'separator'}) |
|
187
|
20 |
17 |
if ($#{$$self{'comments'};} > -1 and $#{$$self{'titles'};} > -1) |
|
197
|
0 |
52 |
if (${$lr;} =~ /^($self->{'config'}{'comregex'})($lend)$/) |
|
200
|
0 |
0 |
unless defined $self->{'config'}{'comchar'} |
|
202
|
0 |
0 |
unless defined $self->{'config'}{'lineend'} |
|
207
|
52 |
0 |
if (${$lr;} =~ /^($self->{'config'}{'comregex'})($nlend+)($lend)$/) |
|
209
|
30 |
22 |
if (defined $self->{'title'}) { } |
|
212
|
6 |
46 |
unless defined $self->{'config'}{'lineend'} |
|
214
|
20 |
32 |
unless defined $self->{'config'}{'comchar'} |
|
218
|
52 |
0 |
unless defined $quote |
|
220
|
17 |
35 |
if (${$lr;} =~ /^($self->{'config'}{'comregex'})($quote)($nlend*\2($seppl)\2*$nlend*)\2*($lend)$/) { } |
|
|
35 |
0 |
elsif (${$lr;} =~ /^($self->{'config'}{'comregex'})($quote?)($nlend*)($lend)$/) { } |
|
223
|
17 |
0 |
unless defined $self->{'config'}{'quote'} |
|
225
|
17 |
0 |
unless defined $self->{'config'}{'quotechar'} |
|
232
|
17 |
0 |
unless $strict |
|
237
|
0 |
17 |
unless defined $self->{'config'}{'lineend'} |
|
239
|
0 |
17 |
unless defined $self->{'config'}{'comchar'} |
|
244
|
0 |
35 |
if ($2 ne '') { } |
|
247
|
0 |
0 |
unless defined $self->{'config'}{'quotechar'} |
|
249
|
0 |
0 |
unless defined $self->{'config'}{'quote'} |
|
256
|
0 |
35 |
unless defined $self->{'config'}{'lineend'} |
|
258
|
0 |
35 |
unless defined $self->{'config'}{'comchar'} |
|
262
|
21 |
14 |
if ($d =~ /($seppl)/) { } |
|
278
|
3 |
0 |
defined $self->{'config'}{'separator'} ? : |
|
289
|
1329 |
573 |
defined $self->{'config'}{'separator'} ? : |
|
|
10 |
1902 |
defined $self->{'config'}{'outsep'} ? : |
|
298
|
1308 |
1391 |
defined $self->{'config'}{'lineend'} ? : |
|
308
|
2 |
8 |
defined $self->{'guessquote'} ? : |
|
|
11 |
10 |
defined $self->{'config'}{'quote'} ? : |
|
312
|
8 |
9 |
defined $self->{'config'}{'quotechar'} ? : |
|
|
17 |
4 |
$want ? : |
|
321
|
35 |
770 |
defined $self->{'config'}{'comchar'} ? : |
|
327
|
0 |
1440 |
ref $_[0] ? : |
|
331
|
0 |
0 |
$self->{'config'}{'empty'} ? : |
|
|
0 |
1440 |
if ${$lr;} =~ /^$lend$/ |
|
332
|
3 |
1437 |
if ($self->{'config'}{'strict'}) { } |
|
337
|
3 |
0 |
if ($#ar > -1) |
|
342
|
3 |
1434 |
if ($self->{'config'}{'black'}) |
|
348
|
1437 |
0 |
if ($l =~ /^($zahl)(.*)$/) { } |
|
349
|
1434 |
3 |
if ($self->{'config'}{'text'}) { } |
|
383
|
12 |
1879 |
if (defined $wr) { } |
|
394
|
28 |
0 |
$k > -1 && $k < @{$ar;} ? : |
|
395
|
28 |
0 |
$k > -1 ? : |
|
399
|
1433 |
458 |
if (defined $self->{'config'}{'numformat'}[0]) { } |
|
405
|
0 |
3582 |
unless (defined $v) |
|
408
|
2037 |
1545 |
unless defined $numform |
|
409
|
3582 |
0 |
if ($numform ne '') { } |
|
438
|
3 |
18 |
if (defined $ar) { } |
|
444
|
7 |
0 |
$k > -1 ? : |
|
445
|
0 |
7 |
unless defined $t |
|
458
|
1 |
783 |
ref $_[0] ? : |
|
466
|
0 |
0 |
ref $_[0] ? : |
|
467
|
0 |
0 |
if (defined $string) |
|
476
|
0 |
35 |
ref $_[0] ? : |
|
477
|
35 |
0 |
if (defined $string) |
|
491
|
0 |
0 |
if ($self->{'config'}{'strict'}) { } |