| line |
true |
false |
branch |
|
78
|
0 |
1 |
if $App::trace |
|
81
|
0 |
1 |
unless defined $options |
|
84
|
1 |
0 |
unless (defined $app) |
|
101
|
0 |
1 |
if ($replay) |
|
103
|
0 |
0 |
if (open App::FILE, "< $file") |
|
118
|
0 |
1 |
if ($record) |
|
120
|
0 |
0 |
if (open App::FILE, "> $file") |
|
132
|
0 |
1 |
if ($replay) { } |
|
136
|
0 |
0 |
unless open App::FILE, "< $file" |
|
141
|
0 |
1 |
if (defined $options and defined $$options{'cgi'}) { } |
|
150
|
1 |
0 |
if defined $options |
|
155
|
0 |
1 |
if ($record) |
|
157
|
0 |
0 |
if (open App::FILE, "> $file") |
|
168
|
0 |
1 |
if (defined $ENV{'HTTP_ACCEPT_LANGUAGE'}) { } |
|
|
0 |
1 |
elsif ($$options{'lang'}) { } |
|
181
|
0 |
1 |
if $App::trace |
|
213
|
0 |
0 |
if $App::trace |
|
216
|
0 |
0 |
if $App::trace |
|
248
|
0 |
0 |
if $App::trace |
|
251
|
0 |
0 |
if (not defined $cgi) { } |
|
|
0 |
0 |
elsif (not defined $$self{'cgi'}) { } |
|
260
|
0 |
0 |
if $App::DEBUG and $context->dbg(1) |
|
265
|
0 |
0 |
if (defined $cgi) |
|
269
|
0 |
0 |
if ($request_method eq 'GET' or $request_method eq 'POST') |
|
274
|
0 |
0 |
if ($path_info and $app) |
|
285
|
0 |
0 |
if ($path_info =~ s[^/([A-Z][A-Za-z0-9]*)/][/]) { } |
|
295
|
0 |
0 |
if ($request_method eq 'GET') { } |
|
297
|
0 |
0 |
if ($path_info =~ s/\.([a-zA-Z0-9_]+)\(([^\(\)]*)\)$//) { } |
|
|
0 |
0 |
elsif ($path_info =~ s/\.([a-zA-Z0-9_]+)$//) { } |
|
310
|
0 |
0 |
if ($path_info =~ s[^/([a-zA-Z_][a-zA-Z0-9._-]*)\((.*)\)$][]) { } |
|
|
0 |
0 |
elsif ($path_info =~ m[^/([a-zA-Z_][a-zA-Z0-9._-]*)$]) { } |
|
|
0 |
0 |
elsif ($$options{'default_cname'}) { } |
|
326
|
0 |
0 |
if $temp |
|
328
|
0 |
0 |
if $temp |
|
330
|
0 |
0 |
if $temp |
|
332
|
0 |
0 |
if $temp |
|
335
|
0 |
0 |
if (not $method and $request_method eq 'POST' and $$cgi{'POSTDATA'} and ref $$cgi{'POSTDATA'} eq 'ARRAY' and $#{$$cgi{'POSTDATA'};} > -1) |
|
337
|
0 |
0 |
if ($content =~ /^\s*(<\?xml[^<>]*\?>)?\s*<([A-Za-z_]+)/s) |
|
343
|
0 |
0 |
if ($init_args and $$options{'open_widget_urls'}) |
|
350
|
0 |
0 |
if ($service and $name and $method) { } |
|
|
0 |
0 |
elsif ($service and $name) { } |
|
352
|
0 |
0 |
if ($temp) { } |
|
|
0 |
0 |
elsif (defined $args and not ref $args) { } |
|
354
|
0 |
0 |
if ($args =~ /^\s*$/) { } |
|
360
|
0 |
0 |
if ($argstype) { } |
|
370
|
0 |
0 |
if ($args =~ /^\s*$/) { } |
|
378
|
0 |
0 |
unless ($$options{'open_widget_urls'} or $permissions and $$permissions{$method}) |
|
384
|
0 |
0 |
unless ($$options{'open_widget_urls'} or $permissions and $$permissions{'view'}) |
|
402
|
0 |
0 |
if ($var =~ /^app\.event/) { } |
|
|
0 |
0 |
elsif ($var =~ /^app\.session/) { } |
|
411
|
0 |
0 |
if ($#values > 0) |
|
414
|
0 |
0 |
if ($value eq '{:delete:}') { } |
|
427
|
0 |
0 |
if ($var =~ s/\[\]$//) { } |
|
|
0 |
0 |
elsif ($#values == -1) { } |
|
|
0 |
0 |
elsif ($#values == 0) { } |
|
440
|
0 |
0 |
if $App::DEBUG and $context->dbg(1) |
|
443
|
0 |
0 |
if ($var =~ /[\[\]\{\}\.]/) { } |
|
|
0 |
0 |
elsif ($var eq 'service' or $var eq 'name' or $var eq 'init_args' or $var eq 'method' or $var eq 'args' or $var eq 'returntype') { } |
|
|
0 |
0 |
elsif ($name) { } |
|
471
|
0 |
0 |
if $App::DEBUG and $context->dbg(1) |
|
474
|
0 |
0 |
if ($key =~ /^app\.event\./) { } |
|
|
0 |
0 |
elsif ($key eq 'app.event') { } |
|
478
|
0 |
0 |
if ($key =~ /\((.*)\)/) |
|
481
|
0 |
0 |
if ($args eq '') { } |
|
|
0 |
0 |
elsif ($args =~ /\{/) { } |
|
486
|
0 |
0 |
if ($arg =~ /^\{(.*)\}$/) { } |
|
495
|
0 |
0 |
if $args ne '' |
|
501
|
0 |
0 |
if ($key =~ /^(.*)\.x$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^(.*)\.y$/) { } |
|
504
|
0 |
0 |
unless defined $y{$key} |
|
511
|
0 |
0 |
unless defined $x{$key} |
|
522
|
0 |
0 |
if $App::DEBUG and $context->dbg(1) |
|
525
|
0 |
0 |
if ($key =~ /^([^()]+)\.([a-zA-Z0-9_-]+)$/) |
|
561
|
0 |
0 |
if ($value =~ /^([^()]+)\.([a-zA-Z0-9_-]+)/) |
|
566
|
0 |
0 |
if ($value =~ /\((.*)\)/) |
|
569
|
0 |
0 |
if $args ne '' |
|
577
|
0 |
0 |
if $App::DEBUG and $context->dbg(1) |
|
581
|
0 |
0 |
if $App::trace |
|
586
|
0 |
0 |
if $App::trace |
|
590
|
0 |
0 |
unless ($returntype) |
|
591
|
0 |
0 |
if (not defined $cgi) { } |
|
|
0 |
0 |
elsif (not defined $$self{'cgi'}) { } |
|
597
|
0 |
0 |
if ($cgi) |
|
602
|
0 |
0 |
if ($path_info =~ /:([a-zA-Z0-9_]+)$/) { } |
|
|
0 |
0 |
elsif ($path_info =~ /\.(html|xml|yaml|csv|pdf|perl|json)$/) { } |
|
610
|
0 |
0 |
if $App::trace |
|
636
|
0 |
0 |
if $App::trace |
|
639
|
0 |
0 |
if $App::trace |
|
664
|
0 |
0 |
if $App::trace |
|
667
|
0 |
0 |
if $App::trace |
|
689
|
0 |
0 |
if $App::trace |
|
693
|
0 |
0 |
if ($cgi) |
|
700
|
0 |
0 |
if ($$options{'app.Request.keep_url_params'}) |
|
708
|
0 |
0 |
if ($keep_param{$param}) |
|
709
|
0 |
0 |
$query_string ? : |
|
715
|
0 |
0 |
if $App::trace |