my( $self, %params) = @_;
$self->{ subject } = $params{ subject };
...