package Constants;

use strict;
use warnings;

use Exporter;
our @ISA = 'Exporter';

my %constants;
BEGIN {
   %constants = (
      FOO => 1,
      BAR => 1,
   );
}

use constant \%constants;

our @EXPORT = keys(%constants);

1;