view release on metacpan or  search on metacpan

lib/Sub/ArgShortcut.pm  view on Meta::CPAN

use 5.006; use strict; use warnings;

package Sub::ArgShortcut;

our $VERSION = '1.022';

sub argshortcut(&) {
	my ( $code ) = @_;
	return sub {
		my @byval;
		my $nondestructive = defined wantarray;
		$code->(
			$nondestructive
			? ( @byval = @_ ? @_ : $_ )
			: (          @_ ? @_ : $_ )
		);
		return $nondestructive ? @byval[ 0 .. $#byval ] : ();