File Coverage

blib/lib/Data/Model/Mixin.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	4	6	66.6
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	40	45	88.8

package Data::Model::Mixin;
use strict;
use warnings;

use Carp ();
$Carp::Internal{(__PACKAGE__)}++;

sub import {
    my($class, %args) = @_;
    Carp::croak "Usage: use Data::Model::Mixin modules => ['MixinModuleName', 'MixinModuleName2', .... ]"
        unless $args{modules} && ref($args{modules}) eq 'ARRAY';

    my $caller = caller;
    for my $module (@{ $args{modules} }) {
        my $pkg = $module;
        $pkg = __PACKAGE__ . "::$pkg" unless $pkg =~ s/^\+//;

        eval "use $pkg"; ## no critic
        if ($@) {
            Carp::croak $@;
        }

        my $register_methods = $pkg->register_method;
        while (my($method, $code) = each %{ $register_methods }) {
            no strict 'refs';
            *{"$caller\::$method"} = $code;
        }
    }
}


1;

=head1 NAME

Data::Model::Mixin - mixin manager for Data::Model

=head1 SYNOPSIS

  use Data::Model::Mixin modules => ['mixin_module_names'];

=head1 AUTHOR

Kazuhiro Osawa Eyappo  shibuya  plE

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut