view release on metacpan or  search on metacpan

lib/Evented/Object/Hax.pm  view on Meta::CPAN

use warnings;
use strict;
use 5.010;

use List::Util qw(first);

our $VERSION = '5.68';

# exported import subroutine.
sub import {
    my ($export_pkg, $import_pkg, @import) = (shift, (caller)[0], @_);

    # import each item.
    foreach my $item (@import) {
        my $code = $export_pkg->can($item) or next;
        export_code($import_pkg, $item, $code);
    }

}

# fetch a symbol from package's symbol table.