use warnings;
use 5.008001;
-our $VERSION = '0.001004';
+our $VERSION = '0.001005';
# mirrored in Declare.xs as DD_HANDLE_*
my \$body;
sub ${name} (${proto}) :lvalue {\n"
.' if (wantarray) {
- my @ret = $body->(@_);
- return @ret;
+ goto &$body;
}
my $ret = $body->(@_);
return $ret;
$setup_for_args{$name} = [
$flags,
sub {
- my ($usepack, $use, $inpack, $name, $proto) = @_;
+ my ($usepack, $use, $inpack, $name, $proto, $shift_hashref) = @_;
my $extra_code = $compile->($name, $proto);
- my $shift_hashref = defined(wantarray);
my $main_handler = sub { shift if $shift_hashref;
("DONE", $run->($name, $proto, @_));
};