#
# Copyright (c) 2015 Christian Jaeger, copying@christianjaeger.ch
#
# This is free software, offered under either the same terms as perl 5
# or the terms of the Artistic License version 2 or the terms of the
# MIT License (Expat version). See the file COPYING.md that came
# bundled with this file.
#

=head1 NAME

Chj::NamespaceCleanAbove

=head1 SYNOPSIS

    sub foo { }
    use Bar;
    use Chj::NamespaceCleanAbove; # imports `_END_`
    sub baz {
       bar foo
    }
    _END_; # deletes `foo` and everything imported by `Bar`, but still lets
           # `baz` access them.

=head1 DESCRIPTION

=head1 SEE ALSO

L<Chj::NamespaceClean>

=head1 NOTE

This is alpha software! Read the status section in the package README
or on the L<website|http://functional-perl.org/>.

=cut


package Chj::NamespaceCleanAbove;

use strict; use warnings; use warnings FATAL => 'uninitialized';

use Chj::NamespaceClean;

sub import {
    my $_importpackage= shift;
    my $package= caller;
    my $keys= package_keys $package;
    no strict 'refs';
    *{"${package}::_END_"}= sub {
        package_delete $package, $keys;
        1 # make _END_ work as the last statement in a module
    };
}

1