Branch Coverage

lib/Sanger/CGP/Vagrent/Data/Substitution.pm
Criterion Covered Total %
branch 11 18 61.1


line true false branch
36 156 936 if ($k eq 'wt') { }
156 780 elsif ($k eq 'mt') { }
46 0 156 unless defined $$self{'_wt'} and defined $$self{'_mt'}
47 0 156 unless length $$self{'_wt'} == 1 and length $$self{'_mt'} == 1
48 0 156 unless $$self{'_wt'} =~ /[atcg]/i and $$self{'_mt'} =~ /[atcg]/i
49 0 156 if $$self{'_mt'} eq $$self{'_wt'}
51 0 156 unless defined $$self{'_minpos'} and defined $$self{'_maxpos'}
52 0 156 unless $$self{'_minpos'} == $$self{'_maxpos'}
53 0 156 unless $$self{'_minpos'} > 0