line |
true |
false |
branch |
61
|
0 |
0 |
if (defined $appref) |
82
|
0 |
0 |
unless (defined $line) |
107
|
0 |
0 |
unless (defined $URI) |
120
|
0 |
0 |
unless (defined $scheme) |
127
|
0 |
0 |
unless $URI =~ /$App::SimpleScan::TestSpec::RE{'URI'}{'HTTP'}{join $;, -'scheme', $scheme}/mx |
140
|
0 |
0 |
if ((undef, undef, $clean, undef, $flags) = $regex =~ m[^$App::SimpleScan::TestSpec::RE{'delimited'}{join $;, -'delim', '/'}{-'keep'}([ics]*)$]mx) { } |
|
0 |
0 |
elsif (($delim, $clean, $flags) = $regex =~ /^m(.)(.*)\1([ics]*)$/mx) { } |
|
0 |
0 |
elsif (($clean, $flags) = $regex =~ m[^/(.*)/([ics]*)$]mx) { } |
167
|
0 |
0 |
unless (defined $self->flags) |
180
|
0 |
0 |
unless (defined $flags) |
185
|
0 |
0 |
if ($self->metaquote) |
188
|
0 |
0 |
if ($delim ne '/') { } |
194
|
0 |
0 |
if ($flags) |
197
|
0 |
0 |
if ($regex =~ /\\/mx) |
212
|
0 |
0 |
if (defined $uri and defined(my $regex = $self->regex) and defined(my $delim = $self->delim) and defined(my $comment = $self->comment)) |
216
|
0 |
0 |
if (defined($tests[$current] = $test_type{$self->kind})) |
220
|
0 |
0 |
if ($self->metaquote) { } |
237
|
0 |
0 |
unless $plugin->can('per_test') |
240
|
0 |
0 |
$added_tests ? : |