| line |
true |
false |
branch |
|
22
|
1 |
1 |
if ($@) |
|
23
|
0 |
1 |
if $@ =~ /\cS\cT\cO\cP/ |
|
41
|
1 |
4 |
unless @_ == 1 |
|
42
|
2 |
2 |
if defined wantarray |
|
44
|
1 |
3 |
unless defined $_ |
|
54
|
2 |
0 |
defined wantarray ? : |
|
56
|
0 |
2 |
unless defined $_ |
|
67
|
0 |
2 |
wantarray ? : |
|
|
2 |
0 |
defined wantarray ? : |
|
71
|
2 |
36 |
defined wantarray ? : |
|
73
|
0 |
74 |
unless defined $_ |
|
80
|
0 |
2 |
wantarray ? : |
|
|
2 |
36 |
defined wantarray ? : |
|
84
|
1 |
0 |
defined wantarray ? : |
|
86
|
0 |
1 |
unless defined $_ |
|
91
|
0 |
1 |
wantarray ? : |
|
|
1 |
0 |
defined wantarray ? : |
|
95
|
0 |
0 |
if ($PLP::Script::header{'Set-Cookie'}) { } |
|
104
|
0 |
0 |
unless (open my $fh, '<', $_[0]) |
|
114
|
0 |
0 |
unless (open my $fh, '>', $_[0]) |
|
119
|
0 |
0 |
unless (print $fh $_[1]) |
|
123
|
0 |
0 |
unless (close $fh) |
|
133
|
0 |
0 |
unless open $fh, '+<', $_[0] or open $fh, '>', $_[0] |
|
140
|
0 |
0 |
unless print $fh ++$counter |
|
141
|
0 |
0 |
unless close $fh |
|
147
|
0 |
0 |
defined wantarray ? : |
|
157
|
0 |
0 |
if my($trailing) = /([\.,!\?\(\)\[\]]+$)/ |
|
160
|
0 |
0 |
$scheme =~ /www\./i ? : |
|
168
|
0 |
0 |
defined wantarray ? : |
|
|
0 |
0 |
if ($@) |
|
169
|
0 |
0 |
defined wantarray ? : |