sub new {
    my ($class, $orderID, $owner, $limit) = @_;
    foreach (qw'orderID') { (croak __PACKAGE__ . "->new() needs a ${_}.") unless (eval("\$$_")) }

    # rest of constuctor ...
}