package Common::Date::EUR;

use base 'Common::Date';

sub priority { 900 }
sub type     { 'eur' }

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

sub year {
    my $self = shift;

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

1;