File Coverage

blib/lib/Object/By/Array.pm

Criterion	Covered	Total	%
statement	16	33	48.4
branch	1	4	25.0
condition			n/a
subroutine	5	10	50.0
pod	4	5	80.0
total	26	52	50.0

package Object::By::Array;

use 5.8.1;
use strict;
use warnings;

sub THIS() { 0 }

sub constructor
#(, ...)
{
	my $this = bless([], shift(@_));
	$this->_constructor(@_) if ($this->can('_constructor'));
	$this->_lock_object;

	return($this);
}

sub sibling_constructor
#(, ...)
{
	my $class = ref(shift(@_));
	return($class->constructor(@_));
}

sub prototype_constructor
#(, ...)
{
	return(bless([], shift(@_)));
}

sub clone_constructor
#()
{
	my $cloned = [@{$_[THIS]}];
	bless($cloned, ref($_[THIS]));
	$cloned->_lock_object;

	return($cloned);
}

sub destructor
#(, ...)
{ # structure of object
	my $this = $_[THIS];

	$this->_destructor(@_) if ($this->can('_destructor'));
	$this->_unlock_object;
	@$this = ();
	$this->_lock_object;
	return;
}

sub _lock_object
#()
{ # locks the structure (number of elements)
	Internals::SvREADONLY(@{$_[THIS]}, 1);
	return;
}

sub _unlock_object
#()
{ # locks the structure (number of elements)
	Internals::SvREADONLY(@{$_[THIS]}, 0);
	return;
}

# Could be used against memory leaks
#sub DESTROY
##()
#{
#	my $this = $_[THIS];
#
#	if ($#$this > -1) {
#		$this->destructor if ($this->can('_destructor'));
#	}
#	return;
#}

1;