File Coverage

blib/lib/Perinci/Package/CopyFrom.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	8	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	40	42	95.2

## no critic: Modules::ProhibitAutomaticExportation
package Perinci::Package::CopyFrom;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-02-16'; # DATE
our $DIST = 'Perinci-Package-CopyFrom'; # DIST
our $VERSION = '0.001'; # VERSION

use strict 'subs', 'vars';
use warnings;
use Log::ger;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(copy_from);

use Package::CopyFrom ();

sub copy_from {
    my $opts = ref $_[0] eq 'HASH' ? shift : {};
    my $src_pkg = shift;

    $opts->{to} = caller unless defined $opts->{to};

    $opts->{_before_copy} = sub {
        my ($name, $src_pkg, $target_pkg, $opts, $overwrite) = @_;
        return 1 if $name eq '%SPEC';
        0;
    };
    $opts->{_after_copy} = sub {
        my ($name, $src_pkg, $target_pkg, $opts, $overwrite) = @_;
        ${"$target_pkg\::SPEC"}{$name} = ${"$src_pkg\::SPEC"}{$name}
            if defined ${"$src_pkg\::SPEC"}{$name};
    };
    Package::CopyFrom::copy_from($opts, $src_pkg);
}

1;
# ABSTRACT: Copy (some) contents from another package (with Rinci metadata awareness)

__END__