Yet Another CPAN Grep

App-Github-Email ( F/FA/FARACO/App-Github-Email-0.3.3.tar.gz, FARACO, 2018; MetaCPAN )

App-Github-Email/lib/App/Github/Email.pm ( view source; MetaCPAN )

e 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:

t_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};