Branch Coverage

blib/lib/Class/Phrasebook/Perl.pm
Criterion Covered Total %
branch 10 24 41.6


line true false branch
120 2 0 if (open PBOOK, "<$filename") { }
124 0 2 if ($@)
126 0 0 if $$self{'verbose'}
131 0 2 if (ref $$self{'phrasebook'} ne 'HASH')
133 0 0 if $$self{'verbose'}
139 0 0 if $$self{'verbose'}
152 1 3 unless (exists $$self{'phrasebook'}{$dict})
153 0 1 if $$self{'verbose'}
166 0 10 unless (defined $$self{'dictionary'})
167 0 0 if $$self{'verbose'}
174 5 5 if ($value and not ref $value)
176 0 3 unless $args{$_}