File Coverage

blib/lib/Array/Delegate.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	27	27	100.0

package Array::Delegate;

use 5.010000;
use strict;
use warnings;

our $VERSION = '0.01';

use vars '$AUTOLOAD';

sub new {
    my $class = shift;
    my @self  = @{+shift};
    bless \@self, $class;
};

sub AUTOLOAD {
    my $method = (split '::', $AUTOLOAD)[-1];
    [map { $_->$method(@_) } @{+shift}];
}

1;
__END__