sub MIME::Lite::new {
    my ($self, %params) = @_;

    ok (exists $params{To}, 'To address present');
    ok ($params{To} eq 'wibble@wobble', 'To address correct');
    ...
    return $new->( @_ );
}