File Coverage

blib/lib/Class/Delegation/Simple.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	7	7	100.0
pod			n/a
total	41	43	95.3

package Class::Delegation::Simple;

use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '0.02';

sub import
{
  my ($class, @args) = @_;
  my ($caller) = caller;

  # Install the handler(s):
  no strict 'refs';
  no warnings 'redefine';
  while( my $set = shift(@args) )
  {
    my $to = $set->{to};
    my $method = $set->{send};
    my $as = $set->{as} || $method;
    *{"$caller\::$method"} = sub {
      my $s = shift;
      if( ref($to) )
      {
        my @res;
        push @res, $s->{$_}->$as( @_ ) foreach @$to;
        return @res if defined(wantarray);
      }
      else
      {
        $s->{$to}->$as( @_ );
      }# end if()
    };
  }# end while()
}# end import()

1;# return true:

__END__