view release on metacpan or  search on metacpan

t/extract.t  view on Meta::CPAN

# we do just to be on the safe side
package SpliceCounter;
use Tie::Array;
use base qw(Tie::StdArray);

our $splice_counter;

sub SPLICE {
	$splice_counter++;
	my $self = shift;
	return $self->SUPER::SPLICE(@_);
}

package main;

use Test::More tests => 3;

use Array::Extract qw(extract);

my @array;
tie @array, "SpliceCounter";