| line |
true |
false |
branch |
|
19
|
4 |
0 |
$0 =~ m[(.*)/] ? : |
|
39
|
4 |
4 |
if (ref $statement eq 'TestML::Assignment') { } |
|
54
|
0 |
4 |
if @$signature and @$args != @$signature |
|
63
|
0 |
0 |
if ref $arg eq 'TestML::Expression' |
|
73
|
6 |
0 |
if $block != 1 |
|
75
|
6 |
0 |
if (my $assert = $statement->assert) |
|
95
|
6 |
0 |
if ($assert->expr) { } |
|
108
|
6 |
10 |
if ($expr->isa('TestML::Expression')) { } |
|
110
|
0 |
6 |
if @calls <= 1 |
|
113
|
0 |
9 |
if ($self->error) |
|
115
|
0 |
0 |
unless $call->isa('TestML::Call') and $call->name eq 'Catch' |
|
124
|
0 |
16 |
if ($self->error) |
|
133
|
4 |
21 |
if ($call->isa('TestML::Object')) |
|
136
|
0 |
21 |
if ($call->isa('TestML::Function')) |
|
139
|
9 |
12 |
if ($call->isa('TestML::Point')) |
|
142
|
12 |
0 |
if ($call->isa('TestML::Call')) |
|
148
|
0 |
12 |
if ($callable->isa('TestML::Object')) |
|
151
|
0 |
12 |
unless $call->args or defined $context |
|
154
|
9 |
3 |
if $context |
|
155
|
12 |
0 |
if ($callable->isa('TestML::Callable')) |
|
157
|
0 |
12 |
if ($@) |
|
161
|
0 |
12 |
unless UNIVERSAL::isa($value, 'TestML::Object') |
|
165
|
0 |
0 |
if ($callable->isa('TestML::Function')) |
|
176
|
6 |
1 |
if ($library->can($name)) |
|
189
|
0 |
9 |
unless defined $value |
|
190
|
0 |
9 |
if ($value =~ s/\n+\z/\n/ and $value eq "\n") |
|
199
|
0 |
4 |
unless @$wanted |
|
204
|
0 |
6 |
if exists $points{'SKIP'} |
|
205
|
0 |
6 |
if (exists $points{'ONLY'}) |
|
207
|
0 |
0 |
unless exists $points{$point} |
|
213
|
0 |
9 |
unless exists $points{$point} |
|
216
|
0 |
6 |
if exists $points{'LAST'} |
|
224
|
0 |
4 |
unless $self->testml |
|
226
|
0 |
4 |
unless ($self->testml =~ /\n/) |
|
227
|
0 |
0 |
unless $self->testml =~ m[(?:(.*)/)?(.*)] |
|
229
|
0 |
0 |
if $1 |
|
232
|
0 |
4 |
unless $$self{'function'} = $self->compiler->new->compile($self->testml) |
|
251
|
4 |
4 |
if (ref $lib eq 'ARRAY') { } |
|
262
|
0 |
6 |
unless my $label = $self->function->getvar('Label') |
|
263
|
0 |
6 |
unless $label = $label->value |
|
271
|
6 |
0 |
if $var eq 'BlockLabel' |
|
272
|
0 |
0 |
if (my $v = $block->points->{$var}) |
|
277
|
0 |
0 |
if (my $v = $self->function->getvar($var)) |
|
285
|
0 |
0 |
unless open my $fh, $path |
|
303
|
46 |
4 |
@_ == 1 ? : |
|
308
|
47 |
42 |
if (my $object = $self->namespace->{$name}) |
|
396
|
0 |
0 |
unless $type =~ s/^TestML::// |
|
413
|
0 |
0 |
$_[0]->value =~ /^-?\d+(?:\.\d+)$/ ? : |
|
417
|
0 |
0 |
length $_[0]->value ? : |
|
429
|
0 |
0 |
$_[0]->value != 0 ? : |
|
442
|
0 |
0 |
$_[0]->value ? : |
|
443
|
0 |
0 |
$_[0]->value ? : |