File Coverage

blib/lib/Class/AutoAccess/Deep.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	9	10	90.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	1	1	100.0
total	41	44	93.1

#$Id: Deep.pm 25 2005-09-11 09:48:14Z kentaro $

package Class::AutoAccess::Deep;

use strict;

use Carp ();

our $AUTOLOAD;
our $VERSION = '0.02';

sub new {
    my ($class, $fields) = @_;

    _croak('argument must be passed in as hashref')
        unless defined $fields || ref $fields eq 'HASH';

    return bless $fields, $class;
}

sub AUTOLOAD {
    my $self = shift;
    (my $field = $AUTOLOAD) =~ s/.*:://;

    return if $field eq 'DESTROY';

    # XXX
    # croaks when you attempt to access an undefined field
    # do you need this feature?
    _croak("Field $field does not exists")
        unless exists $self->{$field};

    if (@_) {
        $self->{$field} = _get_linkedobj($_[0]);
    }
    else {
        $self->{$field} = _get_linkedobj($self->{$field});
    }

    return $self->{$field};
}

sub _get_linkedobj {
    my $value= shift;

    if (ref($value) eq 'HASH'){
        return __PACKAGE__->new($value);
    }
    else {
        return $value;
    }
}

sub _croak {
    my $msg = shift;
    Carp::croak($msg);

    return;
}

1;

__END__