##
use Benchmark 'cmpthese';
cmpthese(1, { tryit => sub { $save = \@_ }});
use Data::Dumper;
$Data::Dumper::Deparse = 1;
print Dumper $save;
__END__
$VAR1 = [
1,
sub {
$save = \@_;
}
];
##
##
cmpthese 3, { tryit => sub { push @save, [@_]; shift } };
print Dumper \@save;
$VAR1 = [
[
3,
sub {
push @save, [@_];
shift @_;
}
],
[
$VAR1->[0][1]
],
[]
];