Re: Import oddity

Tue, 17 Feb 2004 08:03:07 -0800

Dan Muey wrote: 
sub import {
        my $class = shift;
        $class->SUPER::import(@_);
        strict->import;
}

I believe that will fix it. Not 100% sure though. Never tried it. ;)

I just tried it and no go. Any other thoughts anyone? 

The problem here is that Exporter::import() looks at the calling
package, which in this case is Foo::Monkey *itself*, not the user
of Foo::Monkey.

Try this (a more general solution):

  sub import {
      my ($class) = @_;
      $class->export_to_level(2, @_);
      strict->import;
  }

Or this (simpler):

  sub import {
      strict->import;
      goto &Exporter::import;
  }

--
Steve

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Reply via email to