use strict;
use warnings;

use Params::Validate
    qw( validate validate_pos UNDEF SCALAR BOOLEAN HASHREF OBJECT );

print($INC{'Params/ValidateXS.pm'} ?'XS':'PP',"\n");

    my $spec = {
        epoch     => { regex => qr/^-?(?:\d+(?:\.\d*)?|\.\d+)$/ },
        locale    => { type  => SCALAR | OBJECT, optional => 1 },
        language  => { type  => SCALAR | OBJECT, optional => 1 },
        time_zone => { type  => SCALAR | OBJECT, optional => 1 },
        formatter => {
            type     => SCALAR | OBJECT, can => 'format_datetime',
            optional => 1
        },
    };

validate( @{[ 'epoch', 1301690690 ]}, $spec );