|  line  | 
 !l  | 
 l&&!r  | 
 l&&r  | 
 condition  | 
 
| 
210
 | 
 44  | 
 0  | 
 0  | 
 $self->autolint and $self->autotidy  | 
 
| 
431
 | 
 0  | 
 0  | 
 1  | 
 $response && $response->is_success  | 
 
| 
476
 | 
 0  | 
 1  | 
 1  | 
 $response && $response->is_success  | 
 
| 
685
 | 
 0  | 
 0  | 
 0  | 
 ref $lint and $lint->isa("HTML::Lint")  | 
 
| 
759
 | 
 0  | 
 0  | 
 0  | 
 ref $tidy and $tidy->isa("HTML::Tidy5")  | 
 
| 
1996
 | 
 0  | 
 12  | 
 15  | 
 exists $hash->{$pattern_key} and $hash->{$pattern_key} =~ /$patterns->{$pattern_key}/  | 
 
| 
2072
 | 
 4  | 
 0  | 
 3  | 
 exists $options->{'fill'} and defined $options->{'fill'}  | 
 
| 
 | 
 4  | 
 0  | 
 3  | 
 exists $options->{'fill'} and defined $options->{'fill'} and length $options->{'fill'} > 0  | 
 
| 
2120
 | 
 1  | 
 0  | 
 3  | 
 exists $specs->{$name}{'fill'} and defined $specs->{$name}{'fill'}  | 
 
| 
 | 
 1  | 
 0  | 
 3  | 
 exists $specs->{$name}{'fill'} and defined $specs->{$name}{'fill'} and length $specs->{$name}{'fill'} > 0  | 
 
| 
2125
 | 
 2  | 
 0  | 
 2  | 
 exists $specs->{$name}{'maxlength'} and defined $specs->{$name}{'maxlength'}  | 
|  line  | 
 l  | 
 !l&&r  | 
 !l&&!r  | 
 condition  | 
 
| 
572
 | 
 2  | 
 1  | 
 0  | 
 shift() || "Response has $header header"  | 
 
| 
587
 | 
 2  | 
 1  | 
 0  | 
 shift() || "Response lacks $header header"  | 
 
| 
603
 | 
 3  | 
 1  | 
 0  | 
 shift() || qq[Response has $header header with value "$value"]  | 
 
| 
631
 | 
 2  | 
 0  | 
 0  | 
 shift() || "Response has $header header that matches regex $regex"  | 
 
| 
995
 | 
 0  | 
 0  | 
 0  | 
 shift() || qq[Content is unlike "$regex"]  | 
 
| 
1021
 | 
 6  | 
 1  | 
 0  | 
 shift() || qq[Text contains "$str"]  | 
 
| 
1060
 | 
 0  | 
 0  | 
 0  | 
 shift() || qq[Text is like "$regex"]  | 
 
| 
1075
 | 
 0  | 
 0  | 
 0  | 
 shift() || qq[Text is unlike "$regex"]  | 
 
| 
1091
 | 
 3  | 
 7  | 
 0  | 
 shift() || qq[Page has $tag tag with "$text"]  | 
 
| 
1442
 | 
 11  | 
 0  | 
 0  | 
 shift() || qr//  | 
 
| 
1708
 | 
 0  | 
 11  | 
 0  | 
 shift() || 'ID "' . ($id || '') . '" should exist'  | 
 
| 
1758
 | 
 9  | 
 3  | 
 0  | 
 shift() || 'ID "' . ($id || '') . '" should not exist'  | 
 
| 
2197
 | 
 4  | 
 0  | 
 2  | 
 not $val =~ /^\s*\d+\s*$/ or $val + 0 <= 0  |