File Coverage

blib/lib/Evo/Export.pm

Criterion	Covered	Total	%
statement	124	124	100.0
branch	32	58	55.1
condition			n/a
subroutine	28	28	100.0
pod	5	9	55.5
total	189	219	86.3

package Evo::Export;
use Evo '::Meta';


my $META = Evo::Export::Meta->find_or_bind_to(__PACKAGE__);

sub install_in ($me, $dest, $from, @list) {
  Evo::Export::Meta->find_or_bind_to($from)->install($dest, @list);
}

sub Export ($pkg, $code, $name, $as = $name) : Attr {
  $name or (undef, $name) = Evo::Lib::Bare::code2names($code);
  Evo::Export::Meta->find_or_bind_to($pkg)->export_code($as, $code);
}

sub ExportGen ($pkg, $gen, $name, $as = $name) : Attr {
  $name or (undef, $name) = Evo::Lib::Bare::code2names($gen);
  Evo::Export::Meta->find_or_bind_to($pkg)->export_gen($as, $gen);
}

sub import ($self, @list) {
  my $dest = scalar caller;
  Evo::Export::Meta->find_or_bind_to($dest);
  @list = ('*') unless @list;
  Evo::Export::Meta->find_or_bind_to($self)->install($dest, @list);
}

sub _import ($self, @list) : Export(import) {
  my $dest = scalar caller;
  Evo::Export::Meta->find_or_bind_to($self)->install($dest, @list);
}


sub EXPORT ($me, $dest) : ExportGen {
  sub {
    Evo::Export::Meta->find_or_bind_to($dest);
  };
}

sub import_all ($exporter, @list) : Export {
  @list = ('*') unless @list;
  Evo::Export::Meta->find_or_bind_to($exporter)->install(scalar caller, @list);
}

sub export_gen ($me, $dst) : ExportGen {
  sub ($name, $gen) {
    Evo::Export::Meta->find_or_bind_to($dst)->export_gen($name, $gen);
  };
}

sub export_code ($me, $dst) : ExportGen {
  sub ($name, $fn) {
    Evo::Export::Meta->find_or_bind_to($dst)->export_code($name, $fn);
  };
}

sub export ($me, $dst) : ExportGen {
  sub { Evo::Export::Meta->find_or_bind_to($dst)->export($_) for @_ }
}

sub export_proxy ($me, $dst) : ExportGen {
  sub ($origpkg, @list) {
    Evo::Export::Meta->find_or_bind_to($dst)->export_proxy($origpkg, @list);
  };
}


1;

__END__