File Coverage

blib/lib/Sub/Lazy.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	4	4	100.0
condition			n/a
subroutine	14	14	100.0
pod	0	1	0.0
total	56	57	98.2

package Sub::Lazy;

use 5.008;
use strict;
use warnings;

BEGIN {
	$Sub::Lazy::AUTHORITY = 'cpan:TOBYINK';
	$Sub::Lazy::VERSION   = '0.002';
}

use constant ENABLED => !$ENV{PERL_SUB_LAZY_DISABLE};

use Attribute::Handlers;
use if ENABLED, 'Data::Thunk';

sub UNIVERSAL::Lazy :ATTR(CODE)
{
	if (ENABLED)
	{
		no warnings qw(redefine);
		my ($package, $symbol, $referent, $attr, $data) = @_;
		my %args = @{ $data || [] };
		$$symbol = $args{class}
			? sub {
				my @args = @_;
				Data::Thunk::lazy_object { $referent->(@args) } %args;
			}
			: sub {
				my @args = @_;
				Data::Thunk::lazy { $referent->(@args) };
			};
	}
	1;
}

ENABLED or not ENABLED # that is the question

__END__