package BM::Constants::Address;
######################################################################
use strict;
use base qw( Exporter );
our @EXPORT_OK = qw( COUNTRIES COUNTRY_NAME COUNTRY_HAS_REGIONS REGIONS
                     REGION_NAME REGION_COUNTRY_ID CITIES CITY_REGION
                     CITY_COUNTRY_ID );
######################################################################
#look up tables
my $country = undef;
my $region = undef;
my $city = undef;
######################################################################
sub COUNTRIES {

    my $active = shift;

    if(! defined $country) {
        my $db = BM::Database->new();
        my $dbh = $db->db_connect();

        my $sth = $dbh->prepare("
            SELECT country_id, country_name, country_active
            FROM countries
        ");
        $sth->execute;

        while(my $row = $sth->fetchrow_arrayref) {
            $country->{$row->[0]} = {
                name   => $row->[1],
                active => $row->[2],
            };
        }
        $sth->finish;
    }

    if($active) {
        my %active_country = %$country;
        foreach my $key(keys %active_country) {
            delete $active_country{$key} if ! COUNTRY_ACTIVE($key);
        }
        return \%active_country;
    }

    return $country;
}
######################################################################
sub COUNTRY_NAME {
    my $id = shift;
    $country = undef if ! exists COUNTRIES->{$id};
    return COUNTRIES->{$id}->{name} ? COUNTRIES->{$id}->{name} : q{};
}
######################################################################
sub COUNTRY_ACTIVE {
    my $id = shift;
    $country = undef if ! exists COUNTRIES->{$id};
    return COUNTRIES->{$id}->{active};
}
######################################################################
#rest of the functions were snipped...