package Sam::Constants;

use strict;
use warnings;

use constant {
    ABC_1 => 1, ABC_2 => 2, ABC_3 => 3,
    DEF_1 => 4, DEF_2 => 5, DEF_3 => 6,
    GHI_1 => 7, GHI_2 => 8, GHI_3 => 9,
};

BEGIN {
    use Exporter 'import';
    my @abc = qw{ABC_1 ABC_2 ABC_3};
    my @def = qw{DEF_1 DEF_2 DEF_3};
    my @ghi = qw{GHI_1 GHI_2 GHI_3};
    my @abcdef = (@abc, @def);
    my @all = (@abc, @def, @ghi);
    our @EXPORT_OK = @all;
    our %EXPORT_TAGS = (
        abc => [@abc],
        def => [@def],
        ghi => [@ghi],
        abcdef => [@abcdef],
        all => [@all],
    );
}

1;