| line |
true |
false |
branch |
|
20
|
0 |
1 |
if ($self->directives->{'DumpAST'})
|
|
45
|
6 |
19 |
unless length $part
|
|
46
|
10 |
9 |
if ($part =~ /^(\#.*|\ *)\n/)
|
|
50
|
2 |
7 |
if ($part =~ /^%(\w+)\s*(.*?)\s*\n/) { }
|
|
53
|
1 |
1 |
if ($directive eq 'TestML')
|
|
54
|
0 |
1 |
unless $value =~ /^\d+\.\d+\.\d+$/
|
|
56
|
0 |
1 |
if $self->directives->{'TestML'}
|
|
62
|
0 |
1 |
unless $self->directives->{'TestML'}
|
|
63
|
1 |
0 |
if ($directive eq 'Include') { }
|
|
|
0 |
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
|
5 |
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) { }
|