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