File Coverage

blib/lib/Attribute/QueueStack.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	6	100.0
condition			n/a
subroutine	11	11	100.0
pod	0	2	0.0
total	48	50	96.0

package Attribute::QueueStack;

use 5.006;
use strict;

use Attribute::Handlers;
use Devel::StrictMode;

BEGIN {
	$Attribute::QueueStack::AUTHORITY = 'cpan:TOBYINK';
	$Attribute::QueueStack::VERSION   = '0.002';
}

sub _detect_strict ()
{
	return 0 if $ENV{PERL_QUEUESTACK_LOOSE};
	return 1 if STRICT;
	return 1 if $ENV{PERL_QUEUESTACK_STRICT};
	return 0;
}

BEGIN { *ARMED = _detect_strict ? sub () { !!1 } : sub () { !!0 } };

sub UNIVERSAL::Queue :ATTR(ARRAY)
{
	my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
	if (ARMED)
	{
		require Tie::Array::Queue;
		tie @$referent, "Tie::Array::Queue";
	}
	return;
}

sub UNIVERSAL::Stack :ATTR(ARRAY)
{
	my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
	if (ARMED)
	{
		require Tie::Array::Stack;
		tie @$referent, "Tie::Array::Stack";
	}
	return;
}

1;

__END__