Branch Coverage

blib/lib/TestML1/Runtime.pm
Criterion Covered Total %
branch 71 98 72.4


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 ? :