| line |
true |
false |
branch |
|
42
|
2 |
1 |
if (ref $statement eq 'TestML::Assignment') { } |
|
57
|
0 |
1 |
if @$signature and @$args != @$signature |
|
66
|
0 |
0 |
if ref $arg eq 'TestML::Expression' |
|
76
|
7 |
0 |
if $block != 1 |
|
78
|
7 |
0 |
if (my $assert = $statement->assert) |
|
98
|
7 |
0 |
if ($assert->expr) { } |
|
111
|
14 |
2 |
if ($expr->isa('TestML::Expression')) { } |
|
113
|
0 |
14 |
if @calls <= 1 |
|
116
|
0 |
21 |
if ($self->error) |
|
118
|
0 |
0 |
unless $call->isa('TestML::Call') and $call->name eq 'Catch' |
|
127
|
0 |
16 |
if ($self->error) |
|
136
|
2 |
35 |
if ($call->isa('TestML::Object')) |
|
139
|
0 |
35 |
if ($call->isa('TestML::Function')) |
|
142
|
14 |
21 |
if ($call->isa('TestML::Point')) |
|
145
|
21 |
0 |
if ($call->isa('TestML::Call')) |
|
151
|
0 |
21 |
if ($callable->isa('TestML::Object')) |
|
154
|
0 |
21 |
unless $call->args or defined $context |
|
157
|
21 |
0 |
if $context |
|
158
|
21 |
0 |
if ($callable->isa('TestML::Callable')) |
|
160
|
0 |
21 |
if ($@) |
|
164
|
0 |
21 |
unless UNIVERSAL::isa($value, 'TestML::Object') |
|
168
|
0 |
0 |
if ($callable->isa('TestML::Function')) |
|
179
|
3 |
1 |
if ($library->can($name)) |
|
192
|
0 |
14 |
unless defined $value |
|
193
|
0 |
14 |
if ($value =~ s/\n+\z/\n/ and $value eq "\n") |
|
202
|
0 |
1 |
unless @$wanted |
|
207
|
0 |
7 |
if exists $points{'SKIP'} |
|
208
|
0 |
7 |
if (exists $points{'ONLY'}) |
|
210
|
0 |
0 |
unless exists $points{$point} |
|
216
|
0 |
14 |
unless exists $points{$point} |
|
219
|
0 |
7 |
if exists $points{'LAST'} |
|
227
|
0 |
1 |
unless $self->testml |
|
229
|
1 |
0 |
unless ($self->testml =~ /\n/) |
|
235
|
0 |
1 |
unless $$self{'function'} = $self->compiler->new->compile($self->testml) |
|
254
|
1 |
1 |
if (ref $lib eq 'ARRAY') { } |
|
265
|
0 |
7 |
unless my $label = $self->function->getvar('Label') |
|
266
|
0 |
7 |
unless $label = $label->value |
|
274
|
7 |
0 |
if $var eq 'BlockLabel' |
|
275
|
0 |
0 |
if (my $v = $block->points->{$var}) |
|
280
|
0 |
0 |
if (my $v = $self->function->getvar($var)) |
|
288
|
0 |
2 |
unless open my $fh, $path |
|
306
|
25 |
1 |
@_ == 1 ? : |
|
311
|
59 |
24 |
if (my $object = $self->namespace->{$name}) |
|
399
|
0 |
0 |
unless $type =~ s/^TestML::// |
|
416
|
0 |
0 |
$_[0]->value =~ /^-?\d+(?:\.\d+)$/ ? : |
|
420
|
0 |
0 |
length $_[0]->value ? : |
|
432
|
0 |
0 |
$_[0]->value != 0 ? : |
|
445
|
0 |
0 |
$_[0]->value ? : |
|
446
|
0 |
0 |
$_[0]->value ? : |