package a::b;
require Exporter;

our @ISA = qw[ Exporter ];
our @EXPORT = qw[ foo ];
our @EXPORT_OK = qw[ foo bar qux ];
our %EXPORT_TAGS = (
    all => [ @EXPORT_OK ],
);


sub foo{ print 'fooey|' }
sub bar{ print 'Baaa!'  }
sub qux{ print 'Qux?!'  }

1;

##</code><code>##

package a::b::c;
use a::b qw[ :all ];
require Exporter;

our @ISA = qw[ Exporter ];
our @EXPORT = @a::b::EXPORT;
our @EXPORT_OK = ( @a::b::EXPORT_OK, 'sensible' );
our %EXPORT_TAGS = %a::b::EXPORT_TAGS;

push @{ $EXPORT_TAGS{ all } }, 'sensible';

sub sensible{ print 'sensible' }

1;

##</code><code>##

#! perl -slw
use a::b::c qw[ :all ];

foo();
bar();
qux();
sensible();


##</code><code>##

c:\test>importer
fooey|
Baaa!
Qux?!
sensible