| line |
true |
false |
branch |
| 63 |
0 |
5 |
if $arg =~ /^\w+$/ |
| 64 |
2 |
3 |
if $arg =~ /^-\w+$/ |
| 65 |
3 |
0 |
if ($arg =~ /^:[-\w]+$/) |
| 66 |
3 |
0 |
if (exists $EXPORT_TAGS{$arg}) { } |
| 71 |
27 |
0 |
exists $EXPORT_TAGS{$tag} ? : |
| 87 |
0 |
261 |
unless exists $valid_exports{$_} |
| 92 |
0 |
3 |
if (exists $pragmas{'-autoload'}) |
| 102 |
2 |
1 |
if @pragmas |
| 127 |
3 |
133 |
if ($sub eq '_cgi_object') |
| 128 |
0 |
3 |
unless $q |
| 131 |
30 |
103 |
if (not $q or $sub eq 'restore_parameters') |
| 132 |
28 |
2 |
if ($sub eq 'restore_parameters') { } |
| 148 |
1 |
104 |
if $sub eq 'ReadParse' and not @_ |