view release on metacpan or  search on metacpan

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

    return $_[0]
        && $_[0] =~ m[
            ^ (?:(?:git | https?)://)? (?:[^.]+\.)? github\.com/
        ]ix;
}


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;