File Coverage

blib/lib/Sub/ArgShortcut.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	9	10	90.0
condition			n/a
subroutine	7	8	87.5
pod	1	2	50.0
total	41	46	89.1

use 5.006;
use strict;
use warnings;

package Sub::ArgShortcut;
$Sub::ArgShortcut::VERSION = '1.021';
# ABSTRACT: simplify writing functions that use default arguments

sub croak { require Carp; goto &Carp::croak }

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__