package Common::Date::Numerical;

use base 'Common::Date';

sub priority { 700 }
sub type     { 'numerical' }

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

sub year {
    my $self = shift;

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

1;