CPAN::Groonga

ess); 
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 =
      $u

name/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 @un