sub new {
    $_[0]->{class} = shift;
    validate( @_, ... );

    my $self = {};
    return bless $self, __PACKAGE__;
}