| line |
true |
false |
branch |
|
20
|
0 |
42 |
if ($self->directives->{'DumpAST'}) |
|
45
|
178 |
600 |
unless length $part |
|
46
|
321 |
279 |
if ($part =~ /^(\#.*|\ *)\n/) |
|
50
|
50 |
229 |
if ($part =~ /^%(\w+)\s*(.*?)\s*\n/) { } |
|
53
|
42 |
8 |
if ($directive eq 'TestML') |
|
54
|
0 |
42 |
unless $value =~ /^\d+\.\d+\.\d+$/ |
|
57
|
0 |
42 |
if $self->directives->{'TestML'} |
|
62
|
0 |
8 |
unless $self->directives->{'TestML'} |
|
63
|
4 |
4 |
if ($directive eq 'Include') { } |
|
|
4 |
0 |
elsif ($directive =~ /^(DataMarker|BlockMarker|PointMarker)$/) { } |
|
|
0 |
0 |
elsif ($directive =~ /^(DebugPegex|DumpAST)$/) { } |
|
64
|
0 |
4 |
unless my $runtime = $TestML1::Runtime::Singleton |
|
76
|
0 |
4 |
if $include->directives->{'TestML'} |
|
82
|
0 |
0 |
unless length $value |
|
90
|
0 |
229 |
if $input and not $self->directives->{'TestML'} |
|
95
|
42 |
4 |
if ($top) { } |
|
97
|
0 |
42 |
unless $self->directives->{'TestML'} |
|
98
|
0 |
42 |
if $order_error |
|
104
|
29 |
13 |
if ((my $split = index($input, "\n$DataMarker")) >= 0) { } |