<a href="http://www.graq.co.uk">Graq</a>

Done that, and some other searches elsewhere, before I posted. Of course, it's entirely possible (likely, even!) that I've missed the crucial section, in which case could you point me towards it.

The problem isn't that I don't know how to export subs, it's that I want to export all the subs automatically, e.g. @EXPORT = All_the_subs() not @EXPORT = qw(long tedious list)

andy. Going to the dentist now. Preemptive Ow!

Apologies, I did not spot that detail in your original post.

I like your question (probably because the answer does not spring to mind). I have seen many modules with HUGE lists of functions in EXPORT_OK, but none with something clever.

Off the top of my head, the possibility that springs to mind is a hash of subrefs, but that kind of defeats the point of the exercise.

/me scratches head and goes looking

<a href="http://www.graq.co.uk">Graq</a>

All you need to do is to build your @EXPORT array dynamically after defining all of your functions.

use strict;

package MyModule;
use vars qw(@ISA @EXPORT);

require Exporter;
@ISA = qw(Exporter);

sub test { print "In test\n" };

sub test_again { print "In test_again\n" };

sub last_test{ print "In last_test\n" };

while (my ($name, $glob) = each %MyModule::) {
  push @EXPORT, $name if defined *$glob{CODE};
}

1;
[download]

"The first rule of Perl club is you don't talk about Perl club."

I was thinking along the lines of:

@EXPORT = keys(%MyModule::);

<a href="http://www.graq.co.uk">Graq</a>

That's nice, but it potentially exports too much - not just the subs, but everything in stash.

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

"The first rule of Perl club is you don't talk about Perl club."

To do this in a way that doesn't export package vars as well (which I believe was davorg's objection), perhaps this would work:

@EXPORT_OK = grep {defined *{$MyPackage::{$_}}{CODE} }
                  keys %MyPackage::;
[download]

And unless I'm very much mistaken, that line could just as well be at the top of your package as at the bottom: unless you're doing fancy run-time redefinition of subs, they should all be defined by the time the first line of non-begin-block code gets evaluated.




---

If God had meant us to fly, he would *never* have given us the railroads.
    --Michael Flanders

sub ::mysub {
    1;
}
[download]