File Coverage

blib/lib/Array/Objectify/Tie.pm

Criterion	Covered	Total	%
statement	26	39	66.6
branch	2	2	100.0
condition			n/a
subroutine	9	14	64.2
pod	0	1	0.0
total	37	56	66.0

package Array::Objectify::Tie;

use strict;
use warnings;
use Anonymous::Object;

our ($ANON, %OBJECTIFY);
BEGIN {
	$ANON = Anonymous::Object->new({
  	      object_name => 'Array::Objectify::Anonymous'
	});
	%OBJECTIFY = (
		HASH => 'hash_to_nested_object',
		ARRAY => 'array_to_nested_object',
	);
}

sub TIEARRAY {
	my ($class, @params) = @_;
	my $self = {
		array => [
			$class->OBJECTIFY(@params)
		],
	};
	bless $self, $class;
}

sub CLEAR {
	my $self = shift;
	$self->{array} = [];
}

sub STORE {
    	my ($self, $index, $value) = @_;
	$self->{array}->{$index} = $self->OBJECTIFY($value);
}


sub FETCHSIZE {
	my $self = shift;
	return scalar @{$self->{array}};
}

sub FETCH {
	my ($self, $index) = @_;
	$self->{array}->[$index];
}

sub PUSH {
	my $self = shift;
	push @{$self->{array}}, $self->OBJECTIFY(@_);
}

sub POP {
	my $self = shift;
	pop @{$self->{array}};
}

sub SHIFT {
	my $self = shift;
	shift @{$self->{array}};
}

sub UNSHIFT {
	my $self = shift;
	unshift @{$self->{array}}, $self->OBJECTIFY(@_);
}

sub OBJECTIFY {
	my ($self, @params) = @_;
	map {
		my $method = $OBJECTIFY{ref($_)};
		$method ? $ANON->$method($_) : $_;
	} @params;
}

1;