| line |
l |
!l&&r |
!l&&!r |
condition |
|
22
|
0 |
8 |
0 |
$p{'cgi'} || 'CGI'->new |
|
57
|
0 |
0 |
0 |
$self->{'the_request'} ||= join(' ', $self->method, $self->{'query'}->query_string ? $self->uri . '?' . $self->{'query'}->query_string : $self->uri, $self->{'query'}->server_protocol) |
|
79
|
0 |
1 |
0 |
$self->{'uri'} ||= $self->{'query'}->script_name . $self->path_info || '' |
|
124
|
1 |
1 |
0 |
$self->{'headers_in'} ||= 'HTML::Mason::FakeTable'->new('Authorization', $self->{'query'}->auth_type, 'Content-Length', $ENV{'CONTENT_LENGTH'}, 'Content-Type', $self->{'query'}->can('content_type') ? $self->{'query'}->content_type : $ENV{'CONTENT_TYPE'}, map({my $k = ucfirst lc $_;
$k =~ s/_(.)/-\u$1/g;
$k, $self->{'query'}->http($_);} grep({s/^HTTP_//;} keys %ENV))) |
|
162
|
2 |
1 |
10 |
exists $h->{'Location'} || exists $e->{'Location'} |
|
188
|
3 |
1 |
0 |
$self->{'notes'} ||= 'HTML::Mason::FakeTable'->new |
|
211
|
6 |
1 |
0 |
$self->{'subprocess_env'} ||= 'HTML::Mason::FakeTable'->new(%ENV) |
|
328
|
0 |
23 |
0 |
ref $class || $class |
|
380
|
0 |
23 |
0 |
ref $class || $class |