line |
true |
false |
branch |
50
|
0 |
0 |
unless (defined $tests->{'cf_dir'}) |
53
|
0 |
0 |
unless chdir $tests->{'cf_dir'} |
58
|
0 |
0 |
unless ($self->{'files'} and @{$self->{'files'};}) |
64
|
0 |
0 |
unless (-r $fn) |
69
|
0 |
0 |
unless (eval "require $req") |
81
|
0 |
0 |
if (defined $self->{'cf_libdir'}) { } |
|
0 |
0 |
elsif (-r (my $psgi = dirname($self->{'cf_dir'}) . '/app.psgi')) { } |
91
|
0 |
0 |
unless ($script and -r $script) |
115
|
0 |
0 |
$item->{'cf_ACTION'} ? : |
125
|
0 |
0 |
ref $_ ? : |
134
|
0 |
0 |
if (not @_) { } |
138
|
0 |
0 |
-d $_ ? : |
155
|
0 |
0 |
if (my(@global) = $parser->read('skip_comment', 0)) |
159
|
0 |
0 |
if (@config == 2 and $config[0] =~ /^include$/i) { } |
188
|
0 |
0 |
if (my $action = $item->{'cf_ACTION'}) |
190
|
0 |
0 |
unless my $sub = $tests->can("action_$method") |
202
|
0 |
0 |
defined $item->{'cf_TITLE'} ? : |
205
|
0 |
0 |
if (defined $error) |
206
|
0 |
0 |
if (defined $item->{'cf_SKIP_IF_ERROR'} and $error =~ /$item->{'cf_SKIP_IF_ERROR'}/) { } |
216
|
0 |
0 |
if ($item->{'cf_HEADER'} and my(@header) = @{$item->{'cf_HEADER'};}) |
219
|
0 |
0 |
if ($res) { } |
227
|
0 |
0 |
$item->{'cf_SAME_RESULT'} ? : |
|
0 |
0 |
if (my $body = $item->{'cf_SAME_RESULT'} ? $last_body : $item->{'cf_BODY'}) { } |
|
0 |
0 |
elsif (my $errpat = $item->{'cf_ERROR'}) { } |
228
|
0 |
0 |
if (ref $body) { } |
246
|
0 |
0 |
if $item->{'cf_BODY'} |
274
|
0 |
0 |
if (my $jar = $tests->{'cookie_jar'}) |
282
|
0 |
0 |
unless $item->{'cf_METHOD'} eq 'POST' |
284
|
0 |
0 |
unless defined(my $ary = $item->{'cf_PARAM'}) |
285
|
0 |
0 |
if (ref $ary eq 'ARRAY' and grep((ref $_ eq 'HASH'), @$ary) or ref $ary eq 'HASH' and grep((ref $_ eq 'HASH'), values %$ary)) |
313
|
0 |
0 |
if (($item->{'cf_METHOD'} // '') eq 'POST') { } |
319
|
0 |
0 |
if $tests->{'cf_debug'} |
332
|
0 |
0 |
unless my $param = $item->{'cf_PARAM'} |
346
|
0 |
0 |
if @files |
351
|
0 |
0 |
unless defined $_[0] |
358
|
0 |
0 |
unless defined $_[0] |
360
|
0 |
0 |
if (&is_utf8($_[0])) { } |