File Coverage

blib/lib/Sub/ArgShortcut.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	9	10	90.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	40	41	97.5

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 ] : ();
	};
}

sub import {
	my $class = shift;
	my $install_pkg = caller;
	die q(Something mysterious happened) if not defined $install_pkg;
	{ no strict 'refs'; *{"${install_pkg}::argshortcut"} = \&argshortcut; }
}

1;

__END__