package States;

use Exporter;
@ISA = qw(Exporter);

@EXPORT_OK = qw(
    is_state
    get_capitol
);

use strict;

my %abbrev = (
    WISCONSIN => 'WI',
);

my %expand = reverse %abbrev;

my %capitals = (
    WI => 'MADISON',
);

sub is_state
{
    my $state = uc shift;

    return 1 if exists $abbrev{$state};
    return 1 if exists $expand{$state};

    return 0;
}

sub get_capital
{
    my $state = uc shift;

    $state = $abbrev{$state} if exists $abbrev{$state};

    return $capitals{$state};
}

1;