package MyConstants;

use strict;
use base 'Exporter';

use constant {
    TEST => 123,
    TSET => 321,
    FOO  => 'bar',
    BAR  => 'yada
}

my @tests = qw(
  TEST
  TSET
);
my @foos  = qw(
  FOO
  BAR
);

our @EXPORT_OK = (@tests, @foos);
our %EXPORT_TAGS = (
    all   => @EXPORT_OK,
    tests => @tests,
    foos  => @foos
);

1;