sub _do_create { my ( $self, $site, $topic, $reply_to, $comment_data ) = @_; ... my $comment = Senph::Object::Comment->new( $comment_data->%* ); return $comment; }