File Coverage

blib/lib/App/Github/Email.pm

Criterion	Covered	Total	%
statement	18	39	46.1
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	25	54	46.3

package App::Github::Email;
$App::Github::Email::VERSION = '0.3.2';
# ABSTRACT: Search and print particular Github user emails.

use strict;
use warnings;

use Carp qw(confess);
use JSON;
use LWP::UserAgent;
use List::MoreUtils qw(uniq);


sub get_user {
    my $username = shift;

    my $ua = LWP::UserAgent->new;
    my $get_json =
      $ua->get("https://api.github.com/users/$username/events/public");

    if ( $get_json->is_success ) {
        my $raw_json    = $get_json->decoded_content;
        my $dec_json    = decode_json $raw_json;
        my @push_events = grep { $_->{type} eq 'PushEvent' } @{$dec_json};
        my @commits     = map { @{$_->{payload}->{commits}} } @push_events;
        my @addresses   = map { $_->{author}->{email} } @commits;
        my @unique_addr = uniq @addresses;
        my @retrieved_addrs;

        for my $address (@unique_addr) {
            if ( $address ne '[e-mail]' and not $address =~ /^":"/g ) {
                push( @retrieved_addrs, $address );
            }
        }

        return @retrieved_addrs;
    }

    else {
        confess("User is not exist.");
    }
}

1;

__END__