| line |
true |
false |
branch |
|
42
|
55 |
110 |
if (ref $statement eq 'TestML1::Assignment') { } |
|
57
|
0 |
34 |
if @$signature and @$args != @$signature |
|
66
|
0 |
27 |
if ref $arg eq 'TestML1::Expression' |
|
76
|
64 |
71 |
if $block != 1 |
|
78
|
121 |
14 |
if (my $assert = $statement->assert) |
|
98
|
103 |
18 |
if ($assert->expr) { } |
|
111
|
85 |
289 |
if ($expr->isa('TestML1::Expression')) { } |
|
113
|
0 |
85 |
if @calls <= 1 |
|
116
|
11 |
119 |
if ($self->error) |
|
118
|
4 |
7 |
unless $call->isa('TestML1::Call') and $call->name eq 'Catch' |
|
127
|
0 |
374 |
if ($self->error) |
|
136
|
126 |
374 |
if ($call->isa('TestML1::Object')) |
|
139
|
11 |
363 |
if ($call->isa('TestML1::Function')) |
|
142
|
132 |
231 |
if ($call->isa('TestML1::Point')) |
|
145
|
231 |
0 |
if ($call->isa('TestML1::Call')) |
|
151
|
66 |
165 |
if ($callable->isa('TestML1::Object')) |
|
154
|
4 |
161 |
unless $call->args or defined $context |
|
157
|
126 |
35 |
if $context |
|
158
|
150 |
11 |
if ($callable->isa('TestML1::Callable')) |
|
160
|
7 |
143 |
if ($@) |
|
164
|
0 |
143 |
unless UNIVERSAL::isa($value, 'TestML1::Object') |
|
168
|
11 |
0 |
if ($callable->isa('TestML1::Function')) |
|
179
|
43 |
31 |
if ($library->can($name)) |
|
192
|
0 |
132 |
unless defined $value |
|
193
|
0 |
132 |
if ($value =~ s/\n+\z/\n/ and $value eq "\n") |
|
202
|
71 |
39 |
unless @$wanted |
|
207
|
0 |
100 |
if exists $points{'SKIP'} |
|
208
|
0 |
100 |
if (exists $points{'ONLY'}) |
|
210
|
0 |
0 |
unless exists $points{$point} |
|
216
|
36 |
142 |
unless exists $points{$point} |
|
219
|
0 |
64 |
if exists $points{'LAST'} |
|
227
|
0 |
23 |
unless $self->testml |
|
229
|
20 |
3 |
unless ($self->testml =~ /\n/) |
|
235
|
0 |
23 |
unless $self->{'function'} = $self->compiler->new->compile($self->testml) |
|
254
|
23 |
23 |
if (ref $lib eq 'ARRAY') { } |
|
265
|
0 |
124 |
unless my $label = $self->function->getvar('Label') |
|
266
|
0 |
124 |
unless $label = $label->value |
|
274
|
90 |
25 |
if $var eq 'BlockLabel' |
|
275
|
12 |
13 |
if (my $v = $block->points->{$var}) |
|
280
|
13 |
0 |
if (my $v = $self->function->getvar($var)) |
|
288
|
0 |
40 |
unless open my $fh, $path |
|
306
|
536 |
62 |
@_ == 1 ? : |
|
311
|
788 |
493 |
if (my $object = $self->namespace->{$name}) |
|
399
|
0 |
8 |
unless $type =~ s/^TestML1::// |
|
416
|
0 |
0 |
$_[0]->value =~ /^-?\d+(?:\.\d+)$/ ? : |
|
420
|
4 |
1 |
length $_[0]->value ? : |
|
432
|
3 |
1 |
$_[0]->value != 0 ? : |
|
445
|
0 |
0 |
$_[0]->value ? : |
|
446
|
0 |
0 |
$_[0]->value ? : |