package Common::Date::US;

use Common::Date::Pattern;

use base 'Common::Date';

sub priority { 950 }
sub type     { 'us' }

sub _patterns {
    [
        new Common::Date::Pattern( pattern => '(\d{1,2})[\-\/](\d{1,2})[\-\/](\d{2,4})', month => 1, day => 2, year => 3 ),
        new Common::Date::Pattern( pattern => '(\d{2})(\d{2})(\d{4})',                   month => 1, day => 2, year => 3 ),
    ];
}

sub year {
    my $self = shift;

    if ( $self->{_year} && $self->{_year} =~ /^\d{2}$/ ) {
        return "20$self->{_year}";
    } else {
        return $self->{_year};
    }
}

1;