sub _load_constants {
    my %constants;
    foreach my $constant (@Modules::Constants::EXPORT,@Modules::Constants::EXPORT_OK)
    {
        if (defined &{$Modules::Constants::{$constant}})
        {
            $constants{$constant} = [&{$Modules::Constants::{$constant}}];
            if (scalar(@{$constants{$constant}}) == 1)
            {
                $constants{$constant} = @{$constants{$constant}}[0];
            }
        }
    }
    return \%constants;
}
my $CONSTANTS_ref = _load_constants();