File Coverage

blib/lib/App/GitHubWebhooks2Ikachan/Events/PullRequestReviewComment.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	26	96.1

package App::GitHubWebhooks2Ikachan::Events::PullRequestReviewComment;
use strict;
use warnings;
use utf8;
use String::IRC;

sub call {
    my ($class, $context) = @_;

    my $comment = $context->dat->{comment};

    (my $comment_body = $comment->{body}) =~ s/\r?\n.*//g;
    my $user_name = $comment->{user}->{login};
    my $url = $comment->{html_url};

    my ($pull_request_number) = $comment->{pull_request_url} =~ m!/(\d+)\Z!;

    my $main_text = "[review comment (#$pull_request_number)] $comment_body (\@$user_name)";
    return String::IRC->new($main_text)->green . " $url";
}

1;