line |
true |
false |
branch |
130
|
0 |
3 |
defined $noheader ? : |
131
|
0 |
3 |
defined $fieldsep ? : |
132
|
0 |
3 |
defined $all_sep ? : |
156
|
0 |
149 |
unless defined $fieldname |
158
|
15 |
134 |
if @_ |
182
|
0 |
13 |
if /^\s+$/ or not length $_ |
186
|
1 |
13 |
unless defined $_ |
187
|
13 |
0 |
if ($self->flag('no_header') or defined $self->{'_header'}) { } |
192
|
1 |
12 |
if (not $self->{'_count'} and /^\s*\d+$/) { } |
|
1 |
11 |
elsif ($self->{'_count'} == 1 and /^\s*\d+$/) { } |
|
1 |
10 |
elsif ($self->{'_count'} == 2 and /^\s*P\s\d/) { } |
|
1 |
9 |
elsif ($self->{'_count'} == 3 and /^\s*(M|S)+\s*$/i) { } |
|
3 |
6 |
elsif (/^\s*\#/) { } |
218
|
3 |
3 |
if ($self->{'_row1'}) { } |
246
|
15 |
0 |
if (defined $self->flag('marker_positions')) { } |
|
0 |
0 |
elsif (defined $self->{'_header'}) { } |
255
|
15 |
0 |
if (defined $self->flag('marker_positions')) { } |
319
|
1 |
1 |
if $inds[-1] =~ /^[01]$/ |
322
|
0 |
4 |
unless (ref $ind and $ind->isa('Bio::PopGen::IndividualI')) |
330
|
1 |
3 |
if ($header) |
334
|
1 |
0 |
if ($self->flag('no_header') and not $self->flag('header_written')) |
376
|
0 |
1 |
unless (ref $pop and $pop->isa('Bio::PopGen::PopulationI')) |
385
|
1 |
0 |
if ($self->flag('no_header') and not $self->flag('header_written')) |