Branch Coverage

blib/lib/Bio/Tools/Run/Phylo/Phylip/DrawTree.pm
Criterion Covered Total %
branch 12 58 20.6


line true false branch
119 0 1 if $ENV{'PHYLIPDIR'}
122 0 1 if (defined $ENV{'PHYLIPDIR'}) { }
124 0 0 $^O =~ /mswin/i ? :
166 0 3 if $ENV{'PHYLIPDIR'}
190 1 1 if $attr =~ /^-/
191 0 1 if ($attr =~ /PROGRAM/i)
197 1 0 unless $self->plotter
198 1 0 unless $self->screen
199 1 0 unless $self->fontfile
209 0 4 unless $Bio::Tools::Run::Phylo::Phylip::DrawTree::OK_FIELD{$attr}
210 2 2 if @_
231 0 0 unless ($infilename)
277 0 0 unless ('File::Spec'->file_name_is_absolute($infile))
281 0 0 unless (defined $self->fontfile)
285 0 0 if (-e $self->io->catfile($curpath, 'fontfile')) { }
0 0 elsif ('File::Spec'->file_name_is_absolute($self->fontfile)) { }
297 0 0 if ($self->quiet or $self->verbose < 0) { }
298 0 0 $^O =~ /mswin/i ? :
310 0 0 unless -e $plotfile
329 0 0 if (not ref $input) { }
0 0 elsif ($input->isa('Bio::Tree::TreeI')) { }
332 0 0 unless (-e $input)
372 0 0 unless defined $value
374 0 0 if (ref $value)
378 0 0 unless (exists $menu{$attr})
382 0 0 unless (ref($menu{$attr}) =~ /HASH/i)
383 0 0 if (not @vals) { }
392 0 0 if ($value =~ /$stype/i)
398 0 0 unless ($seen)