use base 'SomeModule' is cool for loading a module and putting it in your current package's ISA hierarchy, but it does not call SomeModule's import() method. Now, this might seem like an odd situation -- an OO module with a meaningful import() method -- but it's a situation I'm in, where an OO class defines several constants that I'd like to be exported to the calling package. 
package LikeOOModule;
use base 'MyOOModule';

sub foo {
  my $self = shift;
  if ($self->mode == OO_THIS) { ... }
  elsif ($self->mode == OO_THAT) { ... }
}

[download]
To that end, I came up with a bit of code to include in MyOOModule that checks to see if 'base.pm' is anywhere in its calling stack, and if so, exports its symbols to the proper package (the one before 'base'). I'll show it, but not before admitting how pretty silly this all seems now. Should I have just sucked it up and done 
use base 'MyOOModule';
MyOOModule->import;

[download]
? I mean, it's 100% less work, but I'd prefer the mechanism to be hidden from the person using MyOOModule. 
# this handles 'use base "MyOOModule"'
# which doesn't call 'import'
{
  my ($level, $prev, $pkg);
  while (my ($curr) = caller $level++) {
    $pkg = $curr, last
      if $prev
      and $prev eq "base"   # NB: base.pm shows
      and $curr ne "base";  # up twice in a row
    $prev = $curr;
  }
  __PACKAGE__->export_to_level($level, $pkg, @EXPORT)
    if $pkg;
}

[download]
Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

In reply to use base 'XYZ' and exporting by japhy

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.