File Coverage

blib/lib/this_mod.pm

Criterion	Covered	Total	%
statement	6	28	21.4
branch	0	16	0.0
condition			n/a
subroutine	2	4	50.0
pod			n/a
total	8	48	16.6

package this_mod;

use strict;
use App::ThisDist;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-06'; # DATE
our $DIST = 'this_mod'; # DIST
our $VERSION = '0.001'; # VERSION

my $mod;
our @args;
sub import {
    (my $class, @args) = @_;

    unless (defined $mod) {
        my $res = App::ThisDist::this_mod(".", 'extract_version', 'detail');
        $mod = $res->{module};
        die "Can't guess 'this module'" unless defined $mod;

        (my $mod_pm = "$mod.pm") =~ s!::!/!g;
        require $mod_pm;
    }
    return if $mod eq __PACKAGE__; # to avoid endless recursion
    my $caller = caller();
    eval "package $caller; $mod->import(\@this_mod\::args)"; die if $@; ## no critic: BuiltinFunctions::ProhibitStringyEval
}

sub unimport {
    (my $class, @args) = @_;

    unless (defined $mod) {
        my $res = App::ThisDist::this_mod(".", 'extract_version', 'detail');
        $mod = $res->{module};
        die "Can't guess 'this module'" unless defined $mod;

        (my $mod_pm = "$mod.pm") =~ s!::!/!g;
        require $mod_pm;
    }
    return if $mod eq __PACKAGE__; # to avoid endless recursion
    my $caller = caller();
    eval "package $caller; $mod->import(\@this_mod\::args)"; die if $@; ## no critic: BuiltinFunctions::ProhibitStringyEval
}

1;
# ABSTRACT: Load "this module"

__END__