File Coverage

blib/lib/Class/HasA.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	34	35	97.1

package Class::HasA;

use 5.006;
use strict;
use warnings;
use Carp;

our $VERSION = '1.00';

sub import {
    my ($self, @args) = @_;
    croak "Wrong number of arguments to import" if @args & 1;

    while (my ($method, $how) = splice(@args, 0,2)) {
        my @methods = $method;
        @methods = @$method if ref $method eq "ARRAY";
        for $method (@methods) {
            no strict 'refs';
            *{caller()."::$method"} = sub { (shift->$how)->$method(@_) };
        }
    }
}

# Preloaded methods go here.

1;
__END__