Select Code to Download

sub repeat {
        my $n = shift;
...
        eval 'sub _apply { my $f = shift; my $x = shift; $f->(' . join
+(',', @{$app}) . '); }';
        return _apply(\&$func, $args);
}

sub test {
        my $x = shift;
...
}
# output 6
apply(\&test, [1,2,3]);