| line |
true |
false |
branch |
|
42
|
4 |
4 |
if (ref $statement eq 'TestML::Assignment') { }
|
|
57
|
0 |
1 |
if @$signature and @$args != @$signature
|
|
66
|
0 |
0 |
if ref $arg eq 'TestML::Expression'
|
|
76
|
6 |
0 |
if $block != 1
|
|
78
|
6 |
0 |
if (my $assert = $statement->assert)
|
|
98
|
6 |
0 |
if ($assert->expr) { }
|
|
111
|
6 |
16 |
if ($expr->isa('TestML::Expression')) { }
|
|
113
|
0 |
6 |
if @calls <= 1
|
|
116
|
0 |
6 |
if ($self->error)
|
|
118
|
0 |
0 |
unless $call->isa('TestML::Call') and $call->name eq 'Catch'
|
|
127
|
0 |
22 |
if ($self->error)
|
|
136
|
10 |
18 |
if ($call->isa('TestML::Object'))
|
|
139
|
0 |
18 |
if ($call->isa('TestML::Function'))
|
|
142
|
12 |
6 |
if ($call->isa('TestML::Point'))
|
|
145
|
6 |
0 |
if ($call->isa('TestML::Call'))
|
|
151
|
0 |
6 |
if ($callable->isa('TestML::Object'))
|
|
154
|
0 |
6 |
unless $call->args or defined $context
|
|
157
|
6 |
0 |
if $context
|
|
158
|
6 |
0 |
if ($callable->isa('TestML::Callable'))
|
|
160
|
0 |
6 |
if ($@)
|
|
164
|
0 |
6 |
unless UNIVERSAL::isa($value, 'TestML::Object')
|
|
168
|
0 |
0 |
if ($callable->isa('TestML::Function'))
|
|
179
|
1 |
0 |
if ($library->can($name))
|
|
192
|
0 |
12 |
unless defined $value
|
|
193
|
0 |
12 |
if ($value =~ s/\n+\z/\n/ and $value eq "\n")
|
|
202
|
0 |
4 |
unless @$wanted
|
|
207
|
0 |
12 |
if exists $points{'SKIP'}
|
|
208
|
0 |
12 |
if (exists $points{'ONLY'})
|
|
210
|
0 |
0 |
unless exists $points{$point}
|
|
216
|
6 |
18 |
unless exists $points{$point}
|
|
219
|
0 |
6 |
if exists $points{'LAST'}
|
|
227
|
0 |
1 |
unless $self->testml
|
|
229
|
0 |
1 |
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 |
6 |
unless my $label = $self->function->getvar('Label')
|
|
266
|
0 |
6 |
unless $label = $label->value
|
|
274
|
6 |
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 |
1 |
unless open my $fh, $path
|
|
306
|
15 |
1 |
@_ == 1 ? :
|
|
311
|
37 |
14 |
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 ? :
|