Branch Coverage

Bio/Structure/IO.pm
Criterion Covered Total %
branch 10 40 25.0


line true false branch
242 3 3 if ($class =~ /Bio::Structure::IO::(\S+)/) { }
256 0 3 unless &_load_format_module($format)
276 0 0 unless my $self = $class->new(@_)
444 2 1 if $main::main::{$module}
448 0 1 if ($@)
479 20 0 if $s1 and not $s1 =~ /-$/ and $s2
480 20 40 $s1 ? :
60 0 $s2 ? :
513 0 0 unless $_ = shift()
514 0 0 if /\.(fasta|fast|seq|fa|fsa|nt|aa)$/i
515 0 0 if /\.(gb|gbank|genbank)$/i
516 0 0 if /\.scf$/i
517 0 0 if /\.pir$/i
518 0 0 if /\.(embl|ebl|emb|dat)$/i
519 0 0 if /\.(txt)$/i
520 0 0 if /\.gcg$/i
521 0 0 if /\.ace$/i
522 0 0 if /\.(bsm|bsml)$/i
523 0 0 if /\.(ent|pdb)$/i
539 0 0 unless wantarray