| blib/lib/Language/Basic/Function.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 26 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 62 | 63 | 108 | $name =~ /\$$/ ? : |
| 86 | 3 | 9 | if ($types =~ s/(.*);/$1/) { } |
| 93 | 0 | 12 | unless @args <= $max_types and @args >= $min_types |
| 97 | 0 | 19 | unless my $arg = shift @args |
| 99 | 0 | 19 | unless ref($arg) =~ /(String|Numeric)$/ |
| 102 | 0 | 19 | if ($atype ne $type) |
| 103 | 0 | 0 | $type eq 'N' ? : |
| 109 | 0 | 12 | if $error |
| 169 | 0 | 1 | if ($a > 127 or $a < 0) |
| 178 | 25 | 0 | defined $length ? : |
| 230 | 0 | 0 | unless $perl_sub =~ /^\{/ |
| 287 | 0 | 4 | unless ref($arg) =~ /(String|Numeric)$/ |
| 311 | 0 | 7 | unless defined $$self{'expression'} |