there are few if any projects that are not improved by a global s/our/my/.

You can easily support use My::Configuration qw( %prod );. Although the basic Exporter.pm doesn't support exporting of lexicals, it is dead easy to support that yourself and I strongly suspect that at least one of the "better exporter than Exporter" modules on CPAN is already written to allow you to export lexicals as well.

But just to prove how easy it is, if you only have one variable to potentially export, I roll my own exporter as you watch: 

package My::Config;
use strict;

my %prod = ( foo => 'bar' );
my %export= ( '%prod' => \%prod );
sub import {
    my ( $me, @syms )= @_;
    my $caller= caller();
    for my $sym ( @syms ) {
        my $ref = $export{$sym};
        if ( ! $ref ) {
            require Carp;
            Carp::croak( __PACKAGE__, " does not export $sym\n" );
        }
        $sym =~ s/^[\$\@\%]//;
        no strict 'refs';
        *{ $caller.'::'.$sym }= $ref;
    }
}

[download]

Heh, that one isn't even limited to just exporting one variable (it doesn't support exporting groups of symbols yadda, of course).

- tye        

In reply to Re: Abandon "our" declarations (was: Re: our scope and packages) (export) by tye
in thread our scope and packages by jfrm

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.