File Coverage

blib/lib/Tie/LazyFunction.pm

Criterion	Covered	Total	%
statement	32	66	48.4
branch	9	14	64.2
condition			n/a
subroutine	7	12	58.3
pod			n/a
total	48	92	52.1

package Tie::LazyFunction;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.01';

sub TIESCALAR{
	shift;
	@_ == 1 and return bless [$_[0]], 'Tie::LazyFunction';
	@_ == 2 and return bless [$_[0],\($_[ 1 ] )], 'Tie::LazyFunction::1';
	@_ == 3 and return bless [$_[0],\(@_[ 1 .. 2 ] )], 'Tie::LazyFunction::2';
	@_ == 4 and return bless [$_[0],\(@_[ 1 .. 3 ] )], 'Tie::LazyFunction::3';
	@_ == 5 and return bless [$_[0],\(@_[ 1 .. 4 ] )], 'Tie::LazyFunction::4';
	@_ == 6 and return bless [$_[0],\(@_[ 1 .. 5 ] )], 'Tie::LazyFunction::5';
	@_ == 7 and return bless [$_[0],\(@_[ 1 .. 6 ] )], 'Tie::LazyFunction::6';
	return bless [$_[0],\(@_[ 1 .. $#_ ] )], 'Tie::LazyFunction::n';
}

sub FETCH{
	my $ar = shift;
	# do the coderef in $ar->[0] with no arguments
	&{$ar->[0]};
};

sub Tie::LazyFunction::1::FETCH{
	my $ar = shift;
	# do the coderef in $ar->[0] with arguments from $ar->[1..]
	&{$ar->[0]}(
		 ${ $ar->[1] }
	);
};

sub Tie::LazyFunction::2::FETCH{
	my $ar = shift;
	&{$ar->[0]}(
		 ${ $ar->[1] } ,
		 ${ $ar->[2] }
	);
};

sub Tie::LazyFunction::3::FETCH{
	my $ar = shift;
	&{$ar->[0]}(
		 ${ $ar->[1] } ,
		 ${ $ar->[2] } ,
		 ${ $ar->[3] }
	);
};

sub Tie::LazyFunction::4::FETCH{
	my $ar = shift;
	&{$ar->[0]}(
		 ${ $ar->[1] } ,
		 ${ $ar->[2] } ,
		 ${ $ar->[3] } ,
		 ${ $ar->[4] }
	);
};

sub Tie::LazyFunction::5::FETCH{
	my $ar = shift;
	&{$ar->[0]}(
		 ${ $ar->[1] } ,
		 ${ $ar->[2] } ,
		 ${ $ar->[3] } ,
		 ${ $ar->[4] } ,
		 ${ $ar->[5] }
	);
};

sub Tie::LazyFunction::6::FETCH{
	my $ar = shift;
	&{$ar->[0]}(
		 ${ $ar->[1] } ,
		 ${ $ar->[2] } ,
		 ${ $ar->[3] } ,
		 ${ $ar->[4] } ,
		 ${ $ar->[5] } ,
		 ${ $ar->[6] }
	);
};

sub Tie::LazyFunction::n::FETCH{
	my $ar = shift;
	&{$ar->[0]}(
		 map { ${ $ar->[$_] }} ( 1 .. $#{$ar} )
	);
};


1;
__END__