| line |
true |
false |
branch |
|
66
|
0 |
5 |
if $arg =~ /^\w+$/ |
|
67
|
2 |
3 |
if $arg =~ /^-\w+$/ |
|
68
|
3 |
0 |
if ($arg =~ /^:[-\w]+$/) |
|
69
|
3 |
0 |
if (exists $CGI::Simple::Standard::EXPORT_TAGS{$arg}) { } |
|
74
|
27 |
0 |
exists $CGI::Simple::Standard::EXPORT_TAGS{$tag} ? : |
|
93
|
0 |
261 |
unless exists $valid_exports{$_} |
|
96
|
0 |
3 |
if (exists $pragmas{'-autoload'}) |
|
106
|
2 |
1 |
if @pragmas |
|
131
|
3 |
130 |
if ($sub eq "_cgi_object") |
|
132
|
0 |
3 |
unless $q |
|
135
|
27 |
103 |
if (not $q or $sub eq "restore_parameters") |
|
136
|
25 |
2 |
if ($sub eq 'restore_parameters') { } |
|
153
|
1 |
104 |
if $sub eq "ReadParse" and not @_ |