—#!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;
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 } ]
);
(
$usage
->text ),
exit
0
if
$opt
->help;
my
@addresses
= App::Github::Email::get_user(
$opt
->username );
for
my
$address
(
@addresses
) {
$address
.
"\n"
;
}
__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.3
=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