| blib/lib/Fauxtobox.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 3 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 38 | 120 | 2 | 0 | do { BEGIN {${^WARNING_BITS} = "TUUEUUUUUUUUUUU\025"} no strict 'refs'; *{"CORE::$name";}{'CODE'} } || eval_string(do { my $args = join(', ', map("\$_[$_]", 0 .. $n - 1)); my $base = "$name $args"; my $code = $base; foreach my $c (0 .. $m - 1) { my $i = $n + $c; $base .= ", \$_[$i]"; $code = "\@_ > $i ? $base : $code"; } ; "sub { $code }" }) |