Get the number of issues from a github project

num_github_issues

use Net::GitHub::V2::Issues;
use URI;

# Examples:
# http://github.com/schwern/test-more/tree/master
# http://github.com/sukria/Dancer

sub num_github_issues {
    my $url = URI->new(shift);
    return unless $url->host =~ m{\.?github.com$};

    my $path = $url->path;
    my($owner, $repo) = grep { length $_ } split m{/}, $path;
    return unless $owner && $repo;

    my $issues = Net::GitHub::V2::Issues->new(
        owner => $owner, repo => $repo
    );
    return unless $issues;

    my $open_issues = $issues->list("open");
    return unless ref $open_issues eq 'ARRAY';
    return scalar @$open_issues;
}