File Coverage

blib/lib/Manip/END.pm

Criterion	Covered	Total	%
statement	23	40	57.5
branch	3	6	50.0
condition			n/a
subroutine	8	16	50.0
pod	0	10	0.0
total	34	72	47.2

use strict;
use warnings;

package Manip::END;

our $VERSION = '0.08';

require Exporter;
our @EXPORT_OK = qw(
	clear_end_array
	set_end_array
);

our @ISA = qw(Exporter);

require XSLoader;
XSLoader::load('Manip::END', $Manip::END::VERSION);

my $self = bless get_end_array(), __PACKAGE__;

sub set_end_array
{
	_check(@_);
	@$self = @_;
}

sub clear_end_array
{
	@$self = ();
}

sub new
{
	return $self;
}

sub clear
{
	@$self = ();
}

sub push
{
	shift;
	_check(@_);
	push(@$self, @_);
}

sub unshift
{
	shift;
	_check(@_);
	unshift(@$self, @_);
}

sub filter_sub
{
	shift;
	my $sub = shift;

	my $max = $#$self;

	for (my $i = 0; $i <= $max; $i++)
	{
		if ( ! &$sub(get_pkg_for_index($i)) )
		{
			splice(@$self, $i, 1);
			$max--;
		}
	}
}

sub remove_class
{
	shift;

	my $class = shift;

	$self->filter_sub(sub { ref($_[0]) ne $class } );
}

sub remove_isa
{
	shift;

	my $class = shift;

	$self->filter_sub(sub { ! UNIVERSAL::isa($_[0], $class) } );
}

sub remove_pat
{
	shift;

	my $pat = shift;

	$pat = ref($_) ? $_ : qr/$pat/;

	$self->filter_sub(sub { ! ($_[0] =~ $pat) } );
}

sub _check
{
	if (grep {! UNIVERSAL::isa($_, "CODE") } @_)
	{
		die "END blocks must be CODE references";
	}
}

1;

__END__