#!perl

# ABSTRACT: A command line tool to get a list of email addresses from particular Github account.
# PODNAME: github-email

use strict;
use warnings;

use App::Github::Email;
use Getopt::Long::Descriptive;

my ( $opt, $usage ) = describe_options(
    'github-email %o <github username>',
    [ 'username|u=s', 'Github username.',             { required     => 1 } ],
    [ 'help|h',       'Print this message and exit.', { shortcircuit => 1 } ]
);

print( $usage->text ), exit 0 if $opt->help;

my @addresses = App::Github::Email::get_user( $opt->username );

for my $address (@addresses) {
    say $address;
}

__END__

=pod

=encoding UTF-8

=head1 NAME

github-email - A command line tool to get a list of email addresses from particular Github account.

=head1 VERSION

version 0.3.2

=head1 SYNOPSIS

    github-email --username <github username>

    # Examples

    github-email --username faraco
    github-email -u faraco

=head1 AUTHOR

faraco <skelic3@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2017-2018 by faraco.

This is free software, licensed under:

  The MIT (X11) License

=cut
