| line |
true |
false |
branch |
|
105
|
38 |
6 |
if $attr ne $dashes
|
|
106
|
12 |
32 |
if $short
|
|
107
|
40 |
4 |
@aliases ? :
|
|
116
|
1 |
9 |
$in <= 0 ? :
|
|
135
|
1 |
8 |
/^(\d+)-(\d+)$/ ? :
|
|
141
|
3 |
1 |
if (@named_fields) { }
|
|
143
|
1 |
2 |
if (my(@missing_fields) = grep({not defined $$header_map{$_};} @named_fields))
|
|
147
|
2 |
2 |
/^\d+/ ? :
|
|
161
|
12 |
0 |
if $self->$fh_name
|
|
164
|
0 |
0 |
$name eq 'input' ? :
|
|
165
|
0 |
0 |
$name eq 'input' ? :
|
|
168
|
0 |
0 |
unless defined $self->$name
|
|
169
|
0 |
0 |
if ($self->$name eq '-') { }
|
|
170
|
0 |
0 |
unless open $fh, "$dir2-"
|
|
172
|
0 |
0 |
unless open $fh, $dir3, $self->$name
|
|
179
|
5 |
6 |
if $self->_init
|
|
183
|
0 |
6 |
$self->columns ? :
|
|
184
|
2 |
4 |
if @columns
|
|
189
|
0 |
6 |
if ($self->from_tsv or not $self->has_from_tsv and $self->input and $self->input =~ /\.tsv$/)
|
|
193
|
0 |
6 |
if ($self->to_tsv or not $self->has_to_tsv and $self->output and $self->output =~ /\.tsv$/)
|
|
207
|
2 |
4 |
if (@columns) { }
|
|
208
|
0 |
2 |
if $self->fields
|
|
210
|
4 |
0 |
$self->fields ? :
|
|
211
|
4 |
0 |
if (@fields)
|
|
233
|
2 |
21 |
if ($line_read) { }
|
|
251
|
18 |
0 |
if ($self->columns)
|
|
255
|
0 |
18 |
unless ($self->_output_csv->print($self->_output_fh, $data))
|
|
264
|
5 |
0 |
if (not defined $data)
|
|
265
|
5 |
0 |
if $self->_input_csv->eof
|
|
276
|
0 |
0 |
if defined $args{'line'}
|
|
279
|
0 |
0 |
if ($args{'diag'})
|
|
280
|
0 |
0 |
unless $args{'diag'}
|
|
281
|
0 |
0 |
defined $record ? :
|