Branch Coverage

blib/lib/Bio/ToolBox/utility.pm
Criterion Covered Total %
branch 37 52 71.1


line true false branch
123 0 2 unless defined $string
124 0 2 if ($string =~ /[^\d,\-\s\&]/)
131 2 3 if (/\-/) { }
156 2 1 if ($number =~ /^(\-)?(\d+)\.(\d+)$/) { }
1 0 elsif ($number =~ /^(\-)?(\d+)$/) { }
174 7 3 if (@digits > 3) { }
188 1 2 $sign ? :
190 2 1 if defined $decimals
198 0 0 unless (ref($Data) =~ /Bio::ToolBox::Data/)
204 0 0 unless ($Data->filename eq $DATA_FILENAME and join(";", $Data->list_columns) eq $DATA_COLNAMES)
229 0 0 if ($Data->name($_)) { }
236 0 0 wantarray ? :
247 2 12 if ($dataset =~ /&/) { }
251 2 2 if ($new_name) { }
279 0 4 unless scalar @chroms
291 0 42 if (ref $c eq 'ARRAY') { }
299 4 38 if ($name =~ /^(?:chr)?([wxyz])$/i) { }
3 35 elsif ($name =~ /^(?:chr)?(?:m|mt|mito)(?:dna)?$/i) { }
22 13 elsif ($name =~ /^(?:chr)?(\d+)$/i) { }
7 6 elsif ($name =~ /^(?:chr)?([IVX]+)$/) { }
5 1 elsif ($name =~ /^([a-zA-Z_\-\.]+)(\d+)/) { }
326 2 2 if (scalar @romanic)
328 1 1 if (scalar @sex)
337 0 2 if (scalar @numeric) { }
353 2 13 if ($_ eq 'X') { }
371 0 4 unless $Bio::ToolBox::utility::a->[0] cmp $Bio::ToolBox::utility::b->[0] or $Bio::ToolBox::utility::a->[1] <=> $Bio::ToolBox::utility::b->[1]