Branch Coverage

blib/lib/Gedcom/Date/Phrase.pm
Criterion Covered Total %
branch 2 4 50.0


line true false branch
16 0 3 unless my($phrase) = $str =~ /^\((.*)\)$/
29 2 0 unless (defined $$self{'gedcom'})