| line |
true |
false |
branch |
|
23
|
1 |
1 |
if ref $_[$#_] eq 'HASH' |
|
25
|
0 |
1 |
exists $$SUPPORTED_XS_ARGS{$_} ? : |
|
28
|
0 |
2 |
if (@_ > 1) { } |
|
29
|
0 |
0 |
if $_[2] =~ /^\d+$/ |
|
33
|
0 |
2 |
unless $mode =~ s/^(\+?<|>>?)(.*)$/$1/ |
|
37
|
1 |
1 |
if ($mode =~ /^<$/) { } |
|
|
1 |
0 |
elsif ($mode =~ /^>>?$/) { } |
|
38
|
0 |
1 |
unless $fh = $self->SUPER::open(@_) |
|
39
|
1 |
0 |
unless ($$args{'noheader'}) |
|
40
|
0 |
1 |
unless ($firstline = $self->getline) |
|
44
|
1 |
0 |
unless $$args{'col'} |
|
47
|
0 |
1 |
unless (${*$self;}{'io_csvheaderfile_cols'} = $$args{'col'}) |
|
53
|
0 |
1 |
unless (${*$self;}{'io_csvheaderfile_cols'} = $$args{'col'}) |
|
58
|
0 |
1 |
unless $fh = $self->SUPER::open(@_) |
|
59
|
1 |
0 |
unless $mode =~ /^>>$/ or $$args{'noheader'} |
|
71
|
0 |
3 |
unless my $line = $self->getline |
|
73
|
3 |
0 |
if (${*$self;}{'io_csvheaderfile_csv'}->parse($line)) |
|
76
|
0 |
3 |
@cols > @$colnames ? : |
|
81
|
1 |
2 |
wantarray ? : |
|
86
|
0 |
3 |
unless @_ |
|
90
|
1 |
2 |
if (not ref $rec) { } |
|
|
1 |
1 |
elsif (ref $rec eq 'HASH') { } |
|
|
1 |
0 |
elsif (ref $rec eq 'ARRAY') { } |
|
93
|
2 |
1 |
unless exists $map{$$colnames[$i]} |
|
97
|
0 |
4 |
unless my $idx = $map{$key} |
|
99
|
1 |
3 |
if @$idx > 1 |
|
112
|
1 |
1 |
if defined $SUPPORTED_XS_ARGS |
|
115
|
1 |
0 |
UNIVERSAL::isa($tmpcsvxs, 'HASH') ? : |