File Coverage

blib/lib/DCI/Meta.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	1	2	50.0
condition			n/a
subroutine	10	11	90.9
pod	5	6	83.3
total	48	52	92.3

package DCI::Meta;
use strict;
use warnings;

sub before_import {
    my $class = shift;
    my ( $importer ) = @_;
    return $class->new( $importer );
}

sub base { die "must override base()" }
sub target { shift->{target} }

sub make_subclass {
    my $self = shift;
    my ( $target ) = @_;
    no strict 'refs';
    push @{ "$target\::ISA" } => $self->base;
}

sub new {
    my $class = shift;
    my ( $target ) = @_;

    my $self = bless { target => $target }, $class;

    $self->make_subclass( $target );
    $self->inject( $target, 'dci_meta' => sub { $self });

    $self->init() if $self->can( 'init' );

    return $self;
}

sub inject {
    my $self = shift;
    my ( $target, $name, $sub ) = @_;
    no strict 'refs';
    *{ "$target\::$name" } = $sub;
}

1;

__END__