Branch Coverage

blib/lib/FFI/Platypus/Lang/Pascal.pm
Criterion Covered Total %
branch 0 16 0.0


line true false branch
251 0 0 if $symbol1 =~ /^THREADVARLIST_/
252 0 0 unless $symbol1 =~ /^[A-Z0-9_]+(\$[A-Z0-9_]+)*(\$\$[A-Z0-9_]+)?$/
255 0 0 if $symbol =~ s/\$\$([A-Z_]+)$//
258 0 0 if $ret
267 0 0 if ($symbol =~ /^(.+)\((.*)\)$/) { }
0 0 elsif ($symbol =~ /^(.+)\((.*)\):(.*)$/) { }
286 0 0 if ($mangle{$name})
288 0 0 if (@{$mangle{$name};} == 1) { }