| line |
true |
false |
branch |
|
21
|
1 |
22 |
$args{'pkg'} ? : |
|
55
|
2 |
5 |
$_->{'named'} ? : |
|
56
|
2 |
5 |
$_->{'optional'} ? : |
|
80
|
2 |
28 |
unless my $info = $metadata{$interface_package} |
|
115
|
7 |
37 |
unless $src =~ /
\A
(?
(?&PerlOWS) (?(?&PerlIdentifier))
(?&PerlOWS) \((?.*?)\)
(?&PerlOWS) :Return\((?.*?)\)
;
)
$PPR::GRAMMAR
/sux |
|
129
|
10 |
27 |
$+{'params'} ? : |
|
130
|
5 |
28 |
$+{'return'} ? : |
|
180
|
4 |
13 |
$_->{'named'} ? : |
|
|
4 |
13 |
$_->{'optional'} ? : |
|
184
|
8 |
12 |
unless $src =~ / \A \s* $regex \s* \z /ux |
|
198
|
7 |
16 |
unless $src =~ /
\A \s* @{[join('\\s*,\\s*', map({quotemeta $_;} @list))];} \s* \z
/ux |