line |
true |
false |
branch |
28
|
1 |
0 |
unless open my $handle, "<$encoding", $file_name
|
37
|
0 |
108 |
unless open my $handle, "<$encoding", \$string_value
|
51
|
0 |
0 |
if ($@)
|
68
|
0 |
0 |
if ($response->is_success or $response->status_line =~ /304/) { }
|
85
|
7 |
109 |
if ($args{'-handle'}) { }
|
|
1 |
108 |
elsif ($args{'-file'}) { }
|
|
108 |
0 |
elsif ($args{'-string'}) { }
|
|
0 |
0 |
elsif ($args{'-url'}) { }
|
114
|
0 |
113 |
if ($args{'-project'}) { }
|
|
24 |
89 |
elsif ($args{'-as_project'}) { }
|
132
|
2 |
114 |
if ($class eq 'Bio::Phylo::Parsers::Abstract')
|
133
|
1 |
1 |
if (my $format = _guess_format(_open_handle(%args))) { }
|
170
|
84 |
29 |
if ($self->_return_is_scalar) { }
|
172
|
10 |
74 |
if (my $p = $self->_project) { }
|
173
|
0 |
10 |
if (my $meta = $self->_project_meta)
|
184
|
14 |
13 |
if (my $p = $self->_project) { }
|
185
|
0 |
14 |
if (my $meta = $self->_project_meta)
|
215
|
584 |
0 |
if (my $h = $self->{'_handlers'})
|
216
|
584 |
0 |
defined $type ? :
|
224
|
1 |
1 |
if ($line =~ /^#nexus/i) { }
|
|
0 |
1 |
elsif ($line =~ /^<[^>]*nexml/) { }
|
|
0 |
1 |
elsif ($line =~ /^<[^>]*phyloxml/) { }
|
|
0 |
1 |
elsif ($line =~ /^\s*\d+\s+\d+\s*$/) { }
|
|
0 |
1 |
elsif ($line =~ /^>/) { }
|
|
0 |
1 |
elsif ($line =~ /^\@/) { }
|
|
0 |
1 |
elsif ($line =~ /^\s*\(/) { }
|
|
0 |
1 |
elsif ($line =~ /<\? xml/) { }
|
244
|
0 |
0 |
if ($line =~ /{/)
|
250
|
0 |
0 |
if ($line =~ /^<[^>]*nexml/) { }
|
|
0 |
0 |
elsif ($line =~ /^<[^>]*phyloxml/) { }
|