view release on metacpan or  search on metacpan

lib/Bot/BasicBot/Pluggable/Module/GitHub/EasyLinks.pm  view on Meta::CPAN

                my $title = ( split /\n+/, $commit->{message} )[0];
                my $url = $commit->{url};
                
                # Currently, the URL given doesn't include the host, but that
                # might perhaps change in future, so play it safe:
                $url = "https://github.com$url" unless $url =~ /^http/;
                push @return, sprintf "Commit $thingnum (%s) - %s",
                    $title,
                    $url;
            } else {
                # We purposefully don't show a message on IRC here, as we guess
                # what might be a SHA, so we could be annoying saying that we
                # didn't match a commit when someone said a word that just
                # happened to look like it could be the start of a SHA.
                warn "No commit details for $thingnum \@ $project/$thingnum";
            }
        }
    }
    
    return join "\n", @return;
}