Exporting is bad 'mkay. This came out of a discussion here. I use Exporter to manage my exports. This is not intended to replace it but merely for illustrative purposes for anyone who is thinking about rolling their own import. Doesn't support :tags (easily done though) , but does support @EXPORT, @EXPORT_OK, @EXPORT_FAIL and $VERSION checking.
Update Fixed bug. Wasn't removing the modulename from @_, which meant it tried to import a var with the name specified in use.
our @EXPORT    = qw (@array $VAR );
our @EXPORT_OK = qw($OK_ONLY); 
our @EXPORT_FAIL  = qw ($DONTDOIT);

sub import {
    no strict 'refs';
    my $used_name = shift ; # Remove the Module name.

    my ($Version) = grep { m/^\d[\d.]*$/} @_;
    my @ex =  grep { !m/^(\d[\d\.]+)$/} @_;
    die "Insufficient or missing \$VERSION: $VERSION, $Version require
+d." if $Version  && $VERSION <= $Version;
    push @ex, @EXPORT ;
    my %EXP  = map {($_,'mKay')} @EXPORT,@EXPORT_OK;
    $EXP{$_} = 'Bad' for @EXPORT_FAIL;
    my $that_pack = caller();
    foreach (@ex){
        next if m/^\d[\d\.]+$/;
        die "Denied. Can't export $_" if $EXP{$_} eq 'Bad';
        die "Can't export unknown symbol $_" unless $EXP{$_} eq 'mKay'
+;
        m/^([\@\$\*\&\%]?)(\w+)/;
        my ($t,$v) = ($1,$2);
        $t = '&' unless $t;
        *{$that_pack.'::'.$v} = $t eq '@' && \@{$v} || $t eq '%' && \%
+{$v} || 
                    $t eq '&' && \&{$v} || $t eq '$' && \${$v} || 
                    $t eq '*' && \*{$v} || \*{$_};
    }

}

[download]

In reply to Poor man's Exporter. by shotgunefx

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.