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'})

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