| line |
true |
false |
branch |
|
152
|
11 |
27 |
unless ($LOADED_WRAPPERS)
|
|
153
|
0 |
0 |
if $_[0]->get_nse eq $name
|
|
|
0 |
0 |
if (defined $acc)
|
|
|
0 |
0 |
if (defined $anno)
|
|
|
0 |
0 |
unless ($self->is_flush)
|
|
|
0 |
0 |
unless $countHashes[$index]
|
|
|
0 |
0 |
if (exists $countHashes[$column]{$char})
|
|
|
0 |
0 |
$divisor > 0 ? :
|
|
|
0 |
0 |
if $char[$i] ne $gap
|
|
|
0 |
0 |
if ($col + 1 == $resnumber)
|
|
|
0 |
0 |
if (my $seq = $self->get_by_name($seqname))
|
|
|
0 |
0 |
if (defined $meta)
|
|
|
0 |
0 |
if (defined $desc)
|
|
|
0 |
0 |
unless $seq
|
|
|
0 |
0 |
if ($disname and $name) { }
|
|
|
0 |
0 |
elsif (defined $disnames->{$name}) { }
|
|
|
0 |
0 |
if (defined $gap)
|
|
|
0 |
0 |
if (defined $name)
|
|
|
0 |
0 |
if (defined $match) { }
|
|
|
0 |
0 |
if ($char[$j] eq $firstseq[$j])
|
|
|
0 |
0 |
if (defined $match)
|
|
|
0 |
0 |
unless defined $alphabet
|
|
|
0 |
0 |
if $pos == $self->length
|
|
|
0 |
0 |
unless (defined $refchar)
|
|
|
0 |
0 |
if $pos >= scalar @$seq
|
|
|
0 |
0 |
if $seq->[$pos] eq '-' or $seq->[$pos] eq '.' or $seq->[$pos] eq ' '
|
|
|
0 |
0 |
if defined $seq->[$pos]
|
|
|
0 |
0 |
if scalar @$cols != scalar @colresidues
|
|
|
0 |
0 |
if $cols->[$_] ne $colresidues[$_]
|
|
|
0 |
0 |
if ($dash) { }
|
|
|
0 |
0 |
elsif (@colresidues == 1) { }
|
|
|
0 |
0 |
elsif ($alphabet eq 'protein') { }
|
|
|
0 |
0 |
unless $seq->isa('Bio::Seq::MetaI')
|
|
|
0 |
0 |
if ($len > $maxname)
|
|
|
0 |
0 |
unless $meta
|
|
|
0 |
0 |
if ($len > $maxname)
|
|
|
0 |
0 |
if ($len > $maxname)
|
|
|
0 |
0 |
if (defined $missing)
|
|
|
0 |
0 |
if $length_measure and not $enum{$length_measure}
|
|
|
0 |
0 |
unless ($self->is_flush)
|
|
|
0 |
0 |
unless $countHashes[$index]
|
|
|
0 |
0 |
if (exists $countHashes[$column]{$char})
|
|
|
0 |
0 |
if $_ == 0
|
|
|
0 |
0 |
if $_ == scalar @seqs
|
|
|
0 |
0 |
if $count < $len
|
|
|
0 |
0 |
if ($len) { }
|
|
|
0 |
0 |
if $count > $len
|
|
|
0 |
0 |
if ($len) { }
|
|
|
0 |
0 |
if ($length_measure eq 'short') { }
|
|
|
0 |
0 |
elsif ($length_measure eq 'long') { }
|
|
|
0 |
0 |
if (defined $score)
|
|
|
0 |
0 |
if ($i < $start - 1 or $i > $end - 1)
|
|
|
0 |
0 |
unless (exists $keep{$i})
|
|
|
0 |
0 |
unless (grep {not $_ =~ /^\Q$gap\E$/;} @slice)
|
|
|
0 |
0 |
unless ($include_gapped)
|
|
|
0 |
0 |
if (defined $source)
|
|
|
0 |
0 |
if $includeextra
|
|
|
0 |
0 |
if (defined $match) { }
|
|
|
0 |
0 |
if ($char[$j] eq $match)
|
|
154
|
0 |
11 |
if $@
|
|
186
|
0 |
0 |
if (&looks_like_instance($aln, 'Bio::Align::AlignI')) { }
|
|
191
|
0 |
0 |
if ($seqs[0]) { }
|
|
260
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH' and (%args) = %{$_[0];} or (%args) = &looks_like_hash(@_))
|
|
263
|
0 |
0 |
unless (defined $args{'-missing'} and defined $args{'-gap'} and defined $args{'-matchchar'})
|
|
273
|
0 |
0 |
if (scalar @values < 3)
|
|
290
|
0 |
0 |
if (not $old_special_symbols{$sym}) { }
|
|
|
0 |
0 |
elsif ($old_special_symbols{$sym} eq $new_special_symbols{$sym}) { }
|
|
302
|
0 |
0 |
unless ($new_special_symbols{$dummy} or $old_special_symbols{$dummy} or $dummies{$dummy})
|
|
338
|
4 |
0 |
if (&looks_like_instance($charlabels, 'ARRAY')) { }
|
|
|
0 |
0 |
elsif (defined $charlabels and not &looks_like_instance($charlabels, 'ARRAY')) { }
|
|
340
|
0 |
15 |
if (ref $label)
|
|
386
|
12 |
0 |
if (defined $raw)
|
|
387
|
12 |
0 |
if (&looks_like_instance($raw, 'ARRAY')) { }
|
|
390
|
46 |
0 |
if (defined $row)
|
|
391
|
46 |
0 |
if (&looks_like_instance($row, 'ARRAY')) { }
|
|
484
|
199 |
440 |
if $rowlength > $nchar
|
|
555
|
19 |
10 |
unless $seen{$gap}
|
|
587
|
29 |
29 |
unless $args{'-gap'}
|
|
588
|
58 |
0 |
unless $args{'-missing'}
|
|
589
|
35 |
23 |
if @states and @states == 1
|
|
633
|
0 |
0 |
if ($row->[$i] eq $gap) { }
|
|
634
|
0 |
0 |
if ($previous) { }
|
|
637
|
0 |
0 |
if ($previous eq $gap) { }
|
|
654
|
0 |
0 |
if ($previous and $previous eq $gap)
|
|
666
|
0 |
0 |
if ($args{'-trim'})
|
|
675
|
0 |
0 |
if (@starting_here)
|
|
678
|
0 |
0 |
if (@ending_here)
|
|
683
|
0 |
0 |
if (scalar @ending_here > $ntax / 2) { }
|
|
684
|
0 |
0 |
if $args{'-insertions'}
|
|
688
|
0 |
0 |
unless $args{'-insertions'}
|
|
725
|
2 |
0 |
unless (exists $args{"-$sym"})
|
|
738
|
2 |
2 |
if scalar @symbols_in_column <= 1
|
|
799
|
2 |
0 |
if ($total > 0)
|
|
858
|
2 |
21 |
unless $index{$col_pattern}
|
|
864
|
0 |
2 |
if ($indices) { }
|
|
899
|
0 |
1 |
unless ($type =~ /^(?:d|r)na/i)
|
|
905
|
2 |
4 |
if exists $freq->{$_}
|
|
938
|
0 |
0 |
if ($type =~ /continuous/i) { }
|
|
962
|
0 |
0 |
if (@top == 1) { }
|
|
966
|
0 |
0 |
if ($args{'-ambig'}) { }
|
|
974
|
0 |
0 |
unless ($args{'-gaps'})
|
|
977
|
0 |
0 |
unless ($args{'-missing'})
|
|
980
|
0 |
0 |
wantarray ? :
|
|
1013
|
0 |
16 |
if (@anno)
|
|
1044
|
6 |
7 |
unless exists $indices{$i}
|
|
1074
|
11 |
14 |
if $state eq $missing
|
|
1078
|
2 |
3 |
if scalar @states <= 1
|
|
1113
|
1 |
4 |
if scalar @states <= 1
|
|
1114
|
4 |
1 |
if (scalar @states > 1)
|
|
1119
|
4 |
6 |
if ($seen{$state} == 1) { }
|
|
1127
|
4 |
2 |
if $seen{$state} < $non_missing
|
|
1129
|
2 |
2 |
unless $seen_informative
|
|
1163
|
0 |
0 |
if ($state ne $m and $state ne $g)
|
|
1166
|
0 |
0 |
if not keys %col
|
|
1233
|
0 |
0 |
if (not &looks_like_number($prop) or $prop >= 1 or $prop < 0)
|
|
1273
|
0 |
0 |
unless (&looks_like_object($tree, 3))
|
|
1278
|
0 |
0 |
if ($type =~ /dna/i) { }
|
|
|
0 |
0 |
elsif ($type =~ /standard/i) { }
|
|
1306
|
0 |
0 |
if (scalar @{$self->get_entities;} < 3)
|
|
1312
|
0 |
0 |
if (&looks_like_class('Statistics::R'))
|
|
1316
|
0 |
0 |
if $seed
|
|
1322
|
0 |
0 |
if ($R->get('phylosim') eq 'FALSE')
|
|
1338
|
0 |
0 |
unless ($model)
|
|
1354
|
0 |
0 |
if ($random_rootseq) { }
|
|
1370
|
0 |
0 |
if ($m =~ /([^\:\:]+$)/)
|
|
1379
|
0 |
0 |
if ($type =~ /(?:F81|GTR|K80|HKY)/)
|
|
1383
|
0 |
0 |
if ($type =~ /GTR/)
|
|
1394
|
0 |
0 |
if ($type =~ /(?:K80|HKY)/)
|
|
1406
|
0 |
0 |
if (keys %deletions)
|
|
1418
|
0 |
0 |
if (keys %insertions)
|
|
1439
|
0 |
0 |
if (scalar @invariant)
|
|
1441
|
0 |
0 |
if ($pinvar == 1)
|
|
1478
|
0 |
0 |
if (&looks_like_class('Statistics::R'))
|
|
1486
|
0 |
0 |
if $seed
|
|
1503
|
0 |
0 |
if (keys %pat == 1) { }
|
|
1509
|
0 |
0 |
unless ($model)
|
|
1521
|
0 |
0 |
if $fw == 0
|
|
1522
|
0 |
0 |
if $rev == 0
|
|
1552
|
0 |
0 |
if ($node->is_terminal)
|
|
1584
|
1 |
119 |
if ($@ or $obj_container != $self->_type)
|
|
1588
|
0 |
119 |
unless ($self->get_type_object->is_same($obj->get_type_object))
|
|
1594
|
0 |
224 |
if ($obj->get_id == $ents->get_id)
|
|
1597
|
1 |
223 |
if ($taxon1)
|
|
1600
|
0 |
1 |
if ($taxon2 and $taxon1->get_id == $taxon2->get_id)
|
|
1654
|
0 |
0 |
unless (exists $seen{$state})
|
|
1681
|
44 |
4 |
if (my $taxa = $self->get_taxa) { }
|
|
1685
|
105 |
11 |
if (my $taxon = $row->get_taxon)
|
|
1686
|
105 |
0 |
if exists $taxa{$taxon->get_name}
|
|
1689
|
11 |
0 |
if (exists $taxa{$name}) { }
|
|
1725
|
0 |
1 |
if (my $taxa = $self->get_taxa) { }
|
|
1733
|
2 |
0 |
unless ($taxa{$name})
|
|
1737
|
1 |
0 |
if (keys %taxa)
|
|
1769
|
0 |
0 |
if (@_)
|
|
1775
|
0 |
0 |
$args{'-compact'} ? :
|
|
1828
|
0 |
0 |
if ($self->get_type =~ /^standard$/i) { }
|
|
1832
|
0 |
0 |
if (my(@letters) = (sort {$a cmp $b;} grep({/[a-z]/i;} @states))) { }
|
|
1897
|
0 |
1 |
$args{'-data_block'} ? :
|
|
1905
|
0 |
1 |
if ($args{'-links'})
|
|
1907
|
0 |
0 |
if $self->get_taxa
|
|
1913
|
0 |
1 |
if ($args{'-data_block'}) { }
|
|
1924
|
0 |
0 |
$self->get_respectcase ? :
|
|
|
0 |
1 |
if $args{'-respectcase'}
|
|
1925
|
0 |
1 |
if $self->get_matchchar
|
|
1927
|
1 |
0 |
if $self->get_gap
|
|
1931
|
0 |
1 |
if ($args{'-gapmode'} or $args{'-polymorphism'})
|
|
1935
|
0 |
0 |
$self->get_gapmode ? :
|
|
|
0 |
0 |
if $args{'-gapmode'}
|
|
1939
|
0 |
0 |
$self->get_polymorphism ? :
|
|
|
0 |
0 |
if $args{'-polymorphism'}
|
|
1944
|
0 |
1 |
if ($args{'-charlabels'})
|
|
1946
|
0 |
0 |
if (my(@labels) = @{$self->get_charlabels;})
|
|
1949
|
0 |
0 |
$label =~ /\s/ ? :
|
|
1960
|
0 |
1 |
if ($args{'-statelabels'})
|
|
1962
|
0 |
0 |
if (my(@labels) = @{$self->get_statelabels;})
|
|
1967
|
0 |
0 |
$label =~ /\s/ ? :
|
|
1980
|
0 |
1 |
if ($args{'-charstatelabels'})
|
|
1983
|
0 |
0 |
if (@charlabels and @statelabels)
|
|
1988
|
0 |
0 |
if (my $label = $charlabels[$i]) { }
|
|
1989
|
0 |
0 |
$label =~ /\s/ ? :
|
|
1995
|
0 |
0 |
if (my $labelset = $statelabels[$i]) { }
|
|
1997
|
0 |
0 |
$label =~ /\s/ ? :
|
|
2004
|
0 |
0 |
if $i < $nlabels
|
|
2014
|
1 |
2 |
if CORE::length $datum->get_nexus_name > $length
|
|
2024
|
3 |
0 |
if (not $args{'-seqnames'}) { }
|
|
|
0 |
0 |
elsif ($args{'-seqnames'} =~ /^internal$/i) { }
|
|
|
0 |
0 |
elsif ($args{'-seqnames'} =~ /^taxon/i and $datum->get_taxon) { }
|
|
2031
|
0 |
0 |
if ($args{'-seqnames'} =~ /^taxon_internal$/i) { }
|
|
|
0 |
0 |
elsif ($args{'-seqnames'} =~ /^taxon$/i) { }
|
|
2041
|
0 |
3 |
unless $name
|
|
2072
|
0 |
0 |
if (&looks_like_instance($dom, 'SCALAR') and $dom->_type == 18) { }
|
|
2079
|
0 |
0 |
unless ($dom)
|
|
2085
|
0 |
0 |
if @args
|
|
2087
|
0 |
0 |
$args{'-compact'} ? :
|
|
2104
|
0 |
0 |
%{$ids_for_states;} ? :
|
|
2145
|
0 |
0 |
if $label
|
|
2146
|
0 |
0 |
if $states_id
|
|
2162
|
26 |
111 |
if (scalar @defined != $nchar)
|
|
2164
|
157 |
0 |
unless ($chars[$i])
|
|
2175
|
0 |
137 |
if (scalar @chars > $nchar)
|