Class::Implant - Manipulating mixin and inheritance out of packages


Class-Implant documentation Contained in the Class-Implant distribution.

Index


Code Index:

NAME

Top

Class::Implant - Manipulating mixin and inheritance out of packages

VERSION

Top

version 0.01

SYNOPSIS

Top

There are two ways to use Class::Implant.

procedural way as follow.

  package main;
  use Class::Implant;

  implant qw(Foo::Bar Less::More) { into => "Cat" }   # import all methods in Foo::Bar and Less::More into Cat

or in classical way. just using caller as default target for implanting.

  package Cat;
  use Class::Implant;

  implant qw(Less::More);                 # mixing all methods from Less::More, 
                                          # like ruby 'include'

  implant qw(Foo::Bar), { inherit => 1 }; # import all methods from Foo::Bar and inherit it
                                          # it just do one more step: unshift Foo::Bar into @ISA
                                          # this step is trivial in Perl
                                          # but present a verisimilitude simulation of inheritance in Ruby

DESCRIPTION

Top

Class::Implant allow you manipulating mixin and inheritance outside of packages.

syntax is like

  use Class::Implant;

  implant @classes_for_injection, { options => value }

available options show as following.

into

target package for injection.

inherit

give 1 or any value to mark the inheritance

include

this option is not available in 0.01

exclude

this option is not available in 0.01

EXPORT

implant()

AUTHOR

Top

  shelling <shelling@cpan.org>

COPYRIGHT AND LICENSE

Top


Class-Implant documentation Contained in the Class-Implant distribution.

package Class::Implant;
# ABSTRACT: Manipulating mixin and inheritance out of packages

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

our $VERSION = '0.01';

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

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

  my $target = caller;

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

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

}

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

1;


__END__