Branch Coverage

inc/TestML/Runtime.pm
Criterion Covered Total %
branch 46 104 44.2


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