File Coverage

blib/lib/EntityModel/Class/Accessor/Hash.pm

Criterion	Covered	Total	%
statement	21	31	67.7
branch	4	18	22.2
condition	0	3	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	32	60	53.3

package EntityModel::Class::Accessor::Hash;
$EntityModel::Class::Accessor::Hash::VERSION = '0.016';
use strict;
use warnings;

use parent qw{EntityModel::Class::Accessor};

use EntityModel::Hash;

=head1 NAME

EntityModel::Class::Accessor::Array - generic class accessor for arrays

=head1 VERSION

Version 0.016

=head1 DESCRIPTION

See L.

=head1 METHODS

=cut

=head2 method_list

Returns a hash of method definitions.

=cut

sub method_list {
	my ($class, %opt) = @_;
	my $k = $opt{k};
	if(my $pre = $opt{pre}) {
		return sub {
			my $self = shift;

			$pre->($self, @_) or return;

			if(@_) {
				$self->{$k} = ref $_[0] eq 'HASH' ? EntityModel::Hash->new($_[0]) : $_[0];
			}
			unless($self->{$k}) {
				$self->{$k} = EntityModel::Hash->new($self->{$k});
			}
			return $self->{$k};
		};
	} else {
		return sub {
			my $self = shift;

			if(@_) {
				return $self->{$k}->get(@_) if @_ == 1 && !ref($_[0]);
				$self->{$k} = ref $_[0] eq 'HASH' ? EntityModel::Hash->new($_[0]) : $_[0];
			}
			unless($self->{$k}) {
				$self->{$k} = EntityModel::Hash->new($self->{$k});
			}
			return $self->{$k};
		};
	}
}

1;

__END__