package MyConstants;

use base qw(Exporter::All); # must be found in @INC
our @EXPORT;

__PACKAGE__->export_all( export => qr/^[A-Z]+$/ );

our $VERSION = 3; # it doesn't export this!

use constant FOO => 1;
use constant BAR => 2;
use constant BOO => 3;

1;