File Coverage

blib/lib/Importer/Zim/Utils.pm

Criterion	Covered	Total	%
statement	27	38	71.0
branch	3	6	50.0
condition	1	2	50.0
subroutine	7	9	77.7
pod	0	2	0.0
total	38	57	66.6

package Importer::Zim::Utils;
$Importer::Zim::Utils::VERSION = '0.12.1';
# ABSTRACT: Utilities for Importer::Zim backends

use 5.010001;

our @EXPORT_OK = qw(DEBUG carp croak);

BEGIN {
    my $v = $ENV{IMPORTER_ZIM_DEBUG} || 0;
    *DEBUG = sub () {$v};
}

sub carp  { require Carp; goto &Carp::carp; }
sub croak { require Carp; goto &Carp::croak; }

### import / unimport machinery

BEGIN {
    my $v
      = $ENV{IMPORTER_ZIM_NO_LEXICAL}
      ? !1
      : !!eval 'use Sub::Inject 0.2.0 (); 1';
    *USE_LEXICAL_SUBS = sub () {$v};
}

sub import {
    my $exports = shift->_get_exports(@_);

    if (USE_LEXICAL_SUBS) {
        @_ = %$exports;
        goto &Sub::Inject::sub_inject;
    }

    my $caller = caller;
    *{ $caller . '::' . $_ } = $exports->{$_} for keys %$exports;
}

sub unimport {
    my $exports = shift->_get_exports(@_);

    return if USE_LEXICAL_SUBS;

    my $caller = caller;
    delete ${"${caller}::"}{$_} for keys %$exports;
}

# BEWARE! unimport() will nuke the entire glob associated to
# an imported subroutine (if USE_LEXICAL_SUBS is false).
# So don't use scalar / hash / array variables with the same
# names as any of the symbols in @EXPORT_OK in the user modules.

sub _get_exports {
    my $class = shift;

    state $EXPORTABLE = { map { $_ => \&{$_} } @EXPORT_OK };

    my ( %exports, @bad );
    for (@_) {
        push( @bad, $_ ), next unless my $sub = $EXPORTABLE->{$_};
        $exports{$_} = $sub;
    }
    if (@bad) {
        my @carp;
        push @carp, qq["$_" is not exported by the $class module\n] for @bad;
        croak(qq[@{carp}Can't continue after import errors]);
    }
    return \%exports;
}

1;

#pod =encoding utf8
#pod
#pod =head1 SYNOPSIS
#pod
#pod     use Importer::Zim::Utils qw(DEBUG carp croak);
#pod     ...
#pod     no Importer::Zim::Utils qw(DEBUG carp croak);
#pod
#pod =head1 DESCRIPTION
#pod
#pod     "For longer than I can remember, I've been looking for someone like you."
#pod       – Tak
#pod
#pod No public interface.
#pod
#pod =head1 SEE ALSO
#pod
#pod L
#pod
#pod =cut

__END__