File Coverage

blib/lib/Class/Implant.pm

Criterion	Covered	Total	%
statement	36	38	94.7
branch	11	12	91.6
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	56	61	91.8

package Class::Implant;
our $VERSION = '0.02_02';

# ABSTRACT: Manipulating mixin and inheritance out of packages

use 5.008008;
use strict;
no  strict "refs";
use warnings;
use Class::Inspector;

sub import {
  *{(caller)[0] . "::implant"} = \&implant;
}


sub implant (@) {
  my $option = ( ref($_[-1]) eq "HASH" ? pop(@_) : undef );
  my @class = @_;

  my $target = caller;

  if (defined($option)) {
  # options preprocessing

      $target = $option->{into} if defined($option->{into});
      eval qq{ package $target; use base qw(@class); } if $option->{inherit};

      if (defined($option->{spec})) {
        for (qw(match include exclude)) {
          $option->{$_} = undef;
        }
      }

  }


  for my $class (reverse @class) {

    my @methods = @{ get_methods($class) };
    @methods = grep /$option->{match}/, @methods if $option->{match};

    for my $function (@methods) {
      *{ $target . "::" . $function } = \&{ $class . "::" . $function };
    }

  }

}

sub get_methods { Class::Inspector->functions(shift) }


1;


__END__