| line |
true |
false |
branch |
|
20
|
0 |
1 |
if ($self->directives->{'DumpAST'}) |
|
45
|
5 |
23 |
unless length $part |
|
46
|
11 |
12 |
if ($part =~ /^(\#.*|\ *)\n/) |
|
50
|
3 |
9 |
if ($part =~ /^%(\w+)\s*(.*?)\s*\n/) { } |
|
53
|
1 |
2 |
if ($directive eq 'TestML') |
|
54
|
0 |
1 |
unless $value =~ /^\d+\.\d+\.\d+$/ |
|
56
|
0 |
1 |
if $self->directives->{'TestML'} |
|
62
|
1 |
1 |
unless $self->directives->{'TestML'} |
|
63
|
1 |
1 |
if ($directive eq 'Include') { } |
|
|
1 |
0 |
elsif ($directive =~ /^(DataMarker|BlockMarker|PointMarker)$/) { } |
|
|
0 |
0 |
elsif ($directive =~ /^(DebugPegex|DumpAST)$/) { } |
|
64
|
0 |
1 |
unless my $runtime = $TestML::Runtime::Singleton |
|
75
|
0 |
1 |
if $include->directives->{'TestML'} |
|
82
|
0 |
0 |
unless length $value |
|
90
|
7 |
2 |
if $input and not $self->directives->{'TestML'} |
|
95
|
1 |
1 |
if ($top) { } |
|
96
|
0 |
1 |
unless $self->directives->{'TestML'} |
|
98
|
0 |
1 |
if $order_error |
|
104
|
1 |
0 |
if ((my $split = index($input, "\n$DataMarker")) >= 0) { } |