view release on metacpan or  search on metacpan

lib/Acme/CPANAuthors/GitHub.pm  view on Meta::CPAN

package Acme::CPANAuthors::GitHub;

use strict;
use warnings;
use utf8;

our $VERSION = '0.09';
$VERSION = eval $VERSION;

use Acme::CPANAuthors::Register(
    q(AANARI) => q(Ali Anari),
    q(AAR) => q(Alessandro Ranellucci),
    q(AASSAD) => q(Arnaud "Arhuman" Assad),
    q(ABABLABAB) => q(Ross Hayes),
    q(ABAYLISS) => q(Andrew Bayliss),

scripts/generate-github-authors.pl  view on Meta::CPAN

sub write_file {
    my $file = "$FindBin::Bin/../lib/Acme/CPANAuthors/GitHub.pm";

    open my $fh, '>:encoding(utf-8)', $file or die "$file: $!";
    (my $header =<< "    __HEADER__") =~ s/^ +//gm;
        package Acme::CPANAuthors::GitHub;

        use strict;
        use warnings;
        use utf8;

        our \$VERSION = '$VERSION';
        \$VERSION = eval \$VERSION;

        use Acme::CPANAuthors::Register(
    __HEADER__
    print $fh $header;
    for my $pauseid (sort keys %github) {
        printf $fh "    q(%s) => q(%s),\n", $pauseid, $github{$pauseid};
    }