Senph::Model::Comment
sub create_comment { my ( $self, $topic_url, $comment_data ) = @_; my $site = $self->store->load_site($topic_url); my $topic = $self->store->load_topic($topic_url); $comment_data->{ident} = $topic->comment_count; my $comment = $self->_do_create( $site, $topic, $topic, $comment_data ); $log->infof( "New comment create on %s as %s", $topic->url, $comment->ident ); return $comment; }