File Coverage

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

Criterion	Covered	Total	%
statement	18	24	75.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	7	85.7
pod			n/a
total	24	38	63.1

package Data::Object::Autobox::Autoload::Code;

use 5.010;
use strict;
use warnings;

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

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

    my $delegate = 'Data::Object::Code';
    my $self     = $_[0] = type_code $_[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::Code ...
}

1;