Export all subs from a module

I ended up using this:

@EXPORT = grep {defined *{$My::Module::{$_}}{CODE} } keys %My::Module:
+: ;
[download]

I like this, but I hate ever mentioning any datum twice -- it invites maintenance bugs.

@EXPORT = do { my $pkg = \%My::Module::; grep { defined *{$$pkg{$_}}{CODE} } keys %$pkg };

    -- Chip Salzenberg, Free-Floating Agent of Chaos

To be even more generic:

@EXPORT = do {
  no strict 'refs';
  my $pkg = \%{__PACKAGE__."::"};
  grep exists &{$$pkg{$_}}, keys %$pkg;
};
[download]

chip - you're right - but we've *already* named the package once... so perhaps this would be better:

@EXPORT = grep {defined *{${__PACKAGE__.'::'}{$_}}{CODE} } keys %{__PA
+CKAGE__.'::'} ;
[download]

Unfortunately you need to switch to no strict 'refs' in order to use it, which is a shame, but there you are (unless someone else can do it strictly).

andy.

Okey, now this one I like... because it DOESN'T export BEGIN. Now I'm REALLY happy :)

§ George Sherston

our @EXPORT = keys %devbox::;
[download]

$ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try
[download]

use vars qw(@EXPORT);
...
sub foo {
  ...
}
push @EXPORT, 'foo';
...
sub bar {
  ...
}
push @EXPORT, 'bar';
...
[download]

-- Randal L. Schwartz, Perl hacker

-- Brett

Go not to the Elves for counsel, for they will say both no and yes

I agree, in almost all circumstances. My only motivation here is to avoid having to type the name of whatever routine I'm working on into my EXPORT list each time I start working on a new one (and avoid the irritation of forgetting to do this). Perhaps this is the Wrong Kind Of Laziness... but it IS a Kind of Laziness :)

§ George Sherston