File Coverage

blib/lib/Data/Object/Autobox/Autoload/Array.pm

Criterion	Covered	Total	%
statement	21	27	77.7
branch	0	4	0.0
condition	0	3	0.0
subroutine	7	8	87.5
pod			n/a
total	28	42	66.6

package Data::Object::Autobox::Autoload::Array;

use 5.010;
use strict;
use warnings;

use parent 'Data::Object::Autobox::Common';

use Carp         'confess';
use Data::Object 'type_array';
use Scalar::Util 'blessed';

sub AUTOLOAD {
    my ($package, $method) = our $AUTOLOAD =~ /^(.+)::(.+)$/;

    my $delegate = 'Data::Object::Array';
    my $self     = $_[0] = type_array $_[0];

    confess "Undefined subroutine &${delegate}::$method called"
        unless blessed $self && $self->isa($delegate);

    confess "Can't locate object method \"$method\" via package \"$delegate\""
        unless my $source = $self->can($method);

    goto $source; # delegate to Data::Object::Array ...
}

1;