gistfile1.pl

# code base is the.pm # ingy++                                                                                                                                           
use utf8; package うんこな;

sub import {
    my $package = caller;
    *{"${package}::$_"} = sub { return wantarray ? @_ : $_[0] }
	for qw(a an teh the more);
    my ($class, $module) = @_;
    if ($module) {
	eval "require $module";
	die $@ if $@;
	splice @_, 0, 1;
	my $import = $module->can('import')
            or return;
	goto &$import;
    }
}

sub unimport {
    my $package = caller;
    *{"${package}::$_"} = sub { return wantarray ? @_ : $_[0] }
	for qw(a an teh the more);
    my ($class, $module) = @_;
    if ($module) {
	eval "require $module";
	die $@ if $@;
	splice @_, 0, 1;
	my $unimport = $module->can('unimport')
            or return;
	goto &$unimport;
    }
}

1;


__END__

example:

use utf8;
use うんこな Acme::Oppai;

print Acme::Oppai->Oppai->Oppai->Oppai;