lindex has asked for the wisdom of the Perl Monks concerning the following question:

Ok I know this is a simple question and that its not a good idea.
But is there a way to get Exporter to export all sub's from a mod without
listing out every single sub in the mod in @EXPORT?

And agian, yes I know this is bad form :)



lindex 
/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/

[download]

Replies are listed 'Best First'.
RE: Exporter question
by davorg (Chancellor) on Aug 24, 2000 at 12:49 UTC

    Here's some code adapted from my Sub::Approx module which builds a list of all of the subroutines in a given package:

    foreach (keys %{"${pkg}::"}) {
  my $glob = $::{$_};
    
  $glob =~ s/^\*${pkg}:://;

  next unless defined &{"*${pkg}::$glob"};
  push @subs, $glob;
}

    [download]

    I guess it would be possible to run code like this in a BEGIN block and build up your @EXPORT array that way.

    Update As tilly points out below, when a BEGIN block is executed none of the package's subroutines will have been defined. Therefore you should just put this code in the body of your package.

    --
    <http://www.dave.org.uk>

    European Perl Conference - Sept 22/24 2000, ICA, London
    <http://www.yapc.org/Europe/>
[reply]
[d/l]
      The code is nice, but putting it in a BEGIN block probably won't work. Just put it in the body of the module.

      You want to have actually compiled your module before running that code (so the functions are defined), and run that before the person using your module imports stuff. Well the order of compilation is that they hit the use in their code, they call require, your code is compiled, your code is run, then they call import, then they continue compiling. So from their point of view, ordinary code in your module already is in a BEGIN block. :-)

[reply]

Back to Seekers of Perl Wisdom