File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	34	35	97.1

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

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

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

    my $issue_title = $issue->{title};
    my $user_name   = $issue->{user}->{login};
    my $url = $issue->{html_url};

    my $action = $context->dat->{action};
    my $subscribe_actions = $context->req->param('issues');
    if (
        !$subscribe_actions # Allow all actions
        || grep { $_ eq $action } split(/,/, $subscribe_actions) # Filter by specified actions
    ) {
        my $main_text = "[issue $action (#$issue->{number})] $issue_title (\@$user_name)";

        return String::IRC->new($main_text)->green . " $url";
    }

    return; # Not match any actions
}

1;