| line |
true |
false |
branch |
|
214
|
126 |
46 |
unless $indexshift |
|
215
|
3 |
169 |
unless $indexshift =~ /^\d+$/ |
|
258
|
168 |
168 |
if ref $datalist eq 'HASH' |
|
295
|
168 |
1344 |
if ref $datalist eq 'HASH' |
|
296
|
168 |
1344 |
unless (ref $fh eq 'GLOB') |
|
298
|
0 |
168 |
unless open $fh, '+<' . $layer, $$self{'filename'} or open $fh, '>' . $layer, $$self{'filename'} |
|
303
|
1176 |
336 |
unless $fhflag |
|
304
|
336 |
1176 |
$fhflag ? : |
|
342
|
672 |
336 |
unless (ref $fh eq 'GLOB') |
|
344
|
0 |
672 |
unless open $fh, '+<' . $layer, $$self{'filename'} or open $fh, '>' . $layer, $$self{'filename'} |
|
347
|
840 |
168 |
unless ($noempty) |
|
438
|
672 |
672 |
unless (ref $fh eq 'GLOB') |
|
439
|
0 |
672 |
unless open $fh, '+<' . $self->_layer, $$self{'filename'} |
|
443
|
960 |
384 |
if defined $$self{'linedelimiter'} and $$self{'linedelimiter'} ne '' |
|
444
|
672 |
672 |
if ($$self{'delimiter'}) { } |
|
448
|
448 |
4032 |
if ($key[$i] eq 1) |
|
454
|
2184 |
1092 |
$indexcolumn >= 0 ? : |
|
456
|
28980 |
2184 |
unless $key[$i] eq '1' |
|
460
|
6496 |
7168 |
$_ % 2 ? : |
|
461
|
6496 |
7168 |
$_ % 2 ? : |
|
466
|
448 |
4032 |
if ($key[$i] eq 1) |
|
472
|
2184 |
1092 |
$indexcolumn >= 0 ? : |
|
474
|
29484 |
2184 |
unless $key[$i] eq '1' |
|
478
|
504 |
840 |
unless $fhflag |
|
479
|
840 |
504 |
$fhflag ? : |
|
505
|
672 |
168 |
unless (ref $fh eq 'GLOB') |
|
506
|
0 |
672 |
unless open $fh, '+<' . $self->_layer, $$self{'filename'} |
|
510
|
600 |
240 |
if defined $$self{'linedelimiter'} and $$self{'linedelimiter'} ne '' |
|
512
|
420 |
420 |
if ($$self{'delimiter'}) { } |
|
515
|
280 |
2520 |
if ($$self{'order'}[$i] eq 1) |
|
517
|
140 |
280 |
if ($indexcolumn < 0) { } |
|
521
|
4060 |
4480 |
$_ % 2 ? : |
|
522
|
4060 |
4480 |
$_ % 2 ? : |
|
527
|
280 |
2520 |
if ($key[$i] eq 1) |
|
529
|
140 |
280 |
if ($indexcolumn < 0) { } |
|
532
|
504 |
336 |
unless $fhflag |
|
533
|
336 |
504 |
$fhflag ? : |
|
549
|
756 |
756 |
defined $_[0]{'delimiter'} && $_[0]{'delimiter'} ne '' ? : |
|
558
|
540 |
216 |
if defined $$self{'linedelimiter'} and $$self{'linedelimiter'} ne '' |
|
560
|
21168 |
756 |
defined $$data{$_} ? : |
|
|
1624 |
21924 |
$_ eq 1 ? : |
|
572
|
540 |
216 |
if defined $$self{'linedelimiter'} and $$self{'linedelimiter'} ne '' |
|
574
|
21168 |
756 |
defined $$data{$order[$_]} ? : |
|
|
1624 |
21924 |
$order[$_] eq 1 ? : |
|
|
23548 |
25984 |
$_ % 2 ? : |
|
581
|
364 |
1820 |
$$self{'layer'} =~ /:/ ? : |
|
|
2184 |
0 |
$$self{'layer'} ? : |