Re: Import oddity

[Steve Grazzini]

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>