Branch Coverage

blib/lib/PerlPoint/Tags.pm
Criterion Covered Total %
branch 4 24 16.6


line true false branch
499 16 0 unless @_
505 0 92 if ($declared =~ s/^:(.+)$/$1/)
508 0 0 unless exists $$sets{$declared}
509 0 0 unless ref $$sets{$declared} eq 'ARRAY'
519 0 92 unless exists $$tags{$declared}
522 0 92 if (exists $$PerlPoint::Tags::tagdefs{$declared})
525 0 0 if $PerlPoint::Tags::multiplicityIgnored
567 0 0 if $@
583 0 0 unless $tag
584 0 0 unless $type
585 0 0 unless $type =~ /^(finish|hook)$/
588 0 0 unless exists $$PerlPoint::Tags::tagdefs{$tag} and exists $$PerlPoint::Tags::tagdefs{$tag}{$type}