| line |
true |
false |
branch |
|
256
|
0 |
18998 |
unless my $type = ref $self |
|
261
|
0 |
18998 |
unless (exists $$self{'_permitted'}{$name}) |
|
265
|
328 |
18670 |
if (@_) { } |
|
286
|
0 |
31 |
unless defined $value |
|
300
|
0 |
303 |
unless defined $pn |
|
313
|
30 |
273 |
if $extension ne '' |
|
318
|
26 |
277 |
if $extension ne '' |
|
320
|
56 |
247 |
if (defined $retval) |
|
337
|
0 |
13 |
unless opendir $dh, $dn |
|
344
|
26 |
247 |
if defined $self->_determine_xl_vers($pn) |
|
358
|
0 |
30 |
unless defined $fn |
|
364
|
30 |
0 |
if (-f $pn) { } |
|
376
|
13 |
17 |
if ($self->_xl_vers eq 'xl2007') { } |
|
379
|
0 |
13 |
unless defined $parser |
|
387
|
0 |
17 |
unless defined $self->workbook |
|
398
|
7 |
0 |
if (@_) { } |
|
406
|
10 |
4 |
if ($_ =~ /$re/) |
|
408
|
6 |
4 |
unless $matches++ |
|
412
|
1 |
6 |
unless (defined $wb) |
|
417
|
4 |
2 |
if $matches > 1 |
|
427
|
10 |
100 |
$id == $self->title_row ? : |
|
437
|
36 |
0 |
if (@_) |
|
438
|
0 |
36 |
if (@_) |
|
440
|
0 |
36 |
unless defined $self->sheet_name and defined $self->title_row |
|
453
|
4 |
32 |
if $self->title_row < $minr |
|
465
|
110 |
258 |
if $self->rowid |
|
472
|
3552 |
32 |
if (defined $cell) { } |
|
473
|
1526 |
2026 |
$self->trim ? : |
|
478
|
440 |
3144 |
if $self->force_null |
|
490
|
346 |
3348 |
if ($subr == $self->title_row) { } |
|
493
|
764 |
2584 |
if defined $value and length $value > $widths[$subc] |
|
504
|
36 |
332 |
if ($subr == $self->title_row) { } |
|
522
|
0 |
4 |
unless defined $colid |
|
528
|
0 |
4 |
if $colid < 0 |
|
531
|
2 |
2 |
unless $colid < scalar @{$self->titles;} |
|
540
|
0 |
44 |
unless defined $title |
|
548
|
30 |
264 |
if ($self->titles->[$tsub] =~ /$title/) |
|
562
|
1526 |
0 |
if (defined $s_value) |
|
578
|
436 |
4 |
defined $s_value ? : |
|
|
440 |
0 |
defined $s_null ? : |
|
583
|
436 |
4 |
if (defined $s_value) { } |
|
584
|
2 |
434 |
if $s_value eq '' |
|
610
|
20 |
240 |
exists $data{$column} ? : |
|
628
|
0 |
2 |
unless @_ > 0 |
|
639
|
0 |
2 |
unless @_ > 0 |
|
650
|
0 |
14 |
unless defined $clause |
|
657
|
6 |
8 |
if $self->rowid |
|
665
|
28 |
12 |
if (defined $id) { } |
|
676
|
6 |
8 |
$self->rowid ? : |
|
678
|
10 |
4 |
unless (scalar @columns == $f_no_columns) |
|
690
|
100 |
0 |
if scalar @wanted |