line |
true |
false |
branch |
34
|
0 |
0 |
unless my $objectType = $_[0]{'TESTCONDITIONTYPE'} |
35
|
0 |
0 |
unless exists $Types{$objectType} |
65
|
0 |
0 |
unless my $commentChars = shift() |
85
|
0 |
0 |
unless my $attr = shift() |
86
|
0 |
0 |
unless $self->ok_field($attr) |
93
|
0 |
0 |
unless my $attr = shift() |
94
|
0 |
0 |
unless $self->ok_field($attr) |
102
|
0 |
0 |
if ($self->conditionEnabled =~ /\A 1 \z/xi) { } |
|
0 |
0 |
elsif ($self->conditionEnabled =~ /\A True \z/xi) { } |
123
|
0 |
0 |
unless $attr =~ /[^A-Z]/x |
127
|
0 |
0 |
unless $self->ok_field($attr) |
131
|
0 |
0 |
if @_ |