package OHAI;
use strict;
use warnings;
use Carp;
our %Status = map {; $_ => 1 }
    qw( MMR MM IRN IR CUB CU SSD SS PRK PK SYR SY );

sub status {
    my $country_code = shift || croak "status requires country code";
    $Status{uc$country_code} || croak "Country code '$country_code' undefined";
}

1;

__DATA__

=head1 Do you even Pod, bro?

OHAI - ...

=cut