File Coverage

blib/lib/Object/By/Scalar.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	2	4	50.0
condition			n/a
subroutine	4	7	57.1
pod	4	4	100.0
total	22	36	61.1

package Object::By::Scalar;

use strict;
use warnings;

sub THIS() { 0 }

sub P_CLASS() { 0 }
sub P_VALUE() { 1 }
sub constructor
#( [, ], ...)
{
	my $value = undef;
	my $this = bless(\$value, shift(@_));
	$this->_constructor(@_) if ($this->can('_constructor'));
	return($this);
}

sub _constructor
#()
{ # compromise, this is the rule
	if(exists($_[P_VALUE])) {
		${$_[THIS]} = $_[P_VALUE];
	}
	return;
}

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

sub prototype_constructor
#()
{
	my $value = undef;
	return(bless(\$value, $_[P_CLASS]));
}

sub clone_constructor
#()
{
	my $value = ${$_[THIS]};
	return(bless(\$value, ref($_[THIS])));
}

#sub _lock
##()
#{ # no structure to lock
#}

1;