File Coverage

blib/lib/Data/Object/Role/Proxyable.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	5	6	83.3
condition	3	6	50.0
subroutine	6	7	85.7
pod	0	1	0.0
total	38	45	84.4

package Data::Object::Role::Proxyable;

use 5.014;

use strict;
use warnings;

use Moo::Role;

our $VERSION = '2.02'; # VERSION

# METHODS

sub AUTOLOAD {
  require Carp;

  my ($package, $method) = our $AUTOLOAD =~ m[^(.+)::(.+)$];

  my $build = $package->can('BUILDPROXY');

  my $error = qq(Can't locate object method "$method" via package "$package");

  Carp::confess($error) unless $build && ref($build) eq 'CODE';

  my $proxy = $build->($package, $method, @_);

  Carp::confess($error) unless $proxy && ref($proxy) eq 'CODE';

  goto &$proxy;
}

sub BUILDPROXY {
  my ($package, $method, $self, @args) = @_;

  require Carp;

  my $build = $self->can('build_proxy');

  return $build->($self, $package, $method, @args) if $build;

  Carp::confess(qq(Can't locate object method "build_proxy" via package "$package"));
}

sub DESTROY {

  return;
}

1;