File Coverage

lib/Module/New/Meta.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	39	40	97.5

package Module::New::Meta;

use strict;
use warnings;
use Carp;
use Sub::Install 'reinstall_sub';

my $meta;

sub import {
  my $class  = shift;
  my $caller = caller;

  foreach my $type (qw( methods functions )) {
    reinstall_sub({
      as   => $type,
      into => $caller,
      code => sub ($) {
        my $href = shift;
        foreach my $name (keys %{ $href }) {
          $meta->{$caller}->{$name} = $href->{$name};
        }
      }
    });
  }

  reinstall_sub({
    as   => 'import',
    into => $caller,
    code => sub {
      my $class  = shift;
      my $caller = caller;

      return if $caller eq 'main';
      return if $caller =~ /^Test::/;

      my $my_meta = $meta->{$class};
      foreach my $name (keys %{ $my_meta }) {
        reinstall_sub({
          as   => $name,
          into => $caller,
          code => $my_meta->{$name},
        });
      }
    }
  });
}

1;

__END__