File Coverage

blib/lib/Github/Email.pm

Criterion	Covered	Total	%
statement	21	42	50.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	7	8	87.5
pod	1	1	100.0
total	29	58	50.0

package Github::Email;
$Github::Email::VERSION = '1.1.0';
# 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);
use Email::Valid;


sub get_emails {
    my $username = shift;

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

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

        for my $address (@unique_addresses) {
            if ( $address ne '[e-mail]' && Email::Valid->address($address) ) {
                push( @retrieved_addresses, $address );
            }
        }

        return @retrieved_addresses;
    }

    else {
        confess("User doesn't exist");
    }
}

1;

__END__