Acme-CPANAuthors-MBTI

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

                     }
                  ],
                  "include_underscores" : 0
               },
               "Dist::Zilla::Role::MetaProvider::Provider" : {
                  "$Dist::Zilla::Role::MetaProvider::Provider::VERSION" : "2.002004",
                  "inherit_missing" : 1,
                  "inherit_version" : 1,
                  "meta_noindex" : 1
               },
               "Dist::Zilla::Role::ModuleMetadata" : {
                  "Module::Metadata" : "1.000033",
                  "version" : "0.004"
               }
            },
            "name" : "@Author::KENTNL/MetaProvides::Package",
            "version" : "2.004003"
         },
         {
            "class" : "Dist::Zilla::Plugin::MetaData::BuiltWith",
            "config" : {
               "Dist::Zilla::Plugin::MetaData::BuiltWith" : {
                  "$Module::Metadata::VERSION" : "1.000033",
                  "_stash_key" : "x_BuiltWith",
                  "external_file_name" : "misc/built_with.json",
                  "show_config" : "1",
                  "show_uname" : "1",
                  "uname" : {
                     "uname_args" : [
                        "-s",
                        "-o",
                        "-r",
                        "-m",

dist.ini  view on Meta::CPAN

-phase = develop
-type = suggests
Dist::Zilla::App::Command::bakeini = 0.001000
Dist::Zilla::PluginBundle::Author::KENTNL = 2.025021

[Prereqs::AuthorDeps / @Author::KENTNL/Prereqs::AuthorDeps]

[Authority / @Author::KENTNL/Authority]
:version = 1.006
authority = cpan:KENTNL
do_metadata = 1
locate_comment = 1

[MakeMaker / @Author::KENTNL/MakeMaker]
default_jobs = 10

[Author::KENTNL::RecommendFixes / @Author::KENTNL/Author::KENTNL::RecommendFixes]
:version = 0.004002

[Readme::Brief / @Author::KENTNL/ShippedReadme]

inc/expand_author_list.pm  view on Meta::CPAN

  my ($authorid) = @_;
  dolog("Resolving Gravatar for $authorid");
  my $request = http()->get( 'http://api.metacpan.org/v0/author/' . $authorid ) // {};
  my $content = $request->{content}                                             // {};
  my $json    = json()->decode($content);
  my $url     = $json->{gravatar_url};
  $url =~ s/s=\K130/80/g;
  return $url;
}

sub extract_data {
  state $result_cache = {};
  my ( $category, $source_file ) = @_;
  return $result_cache->{$category} if exists $result_cache->{$category};

  my $author_data = Parse::CPAN::Whois->new( mirror_whois('00whois.xml') );

  my $author_hash = {};
  my @authors;

  for my $id ( path($source_file)->lines_raw( { chomp => 1 } ) ) {
    dolog("$category / $id");
    my $name = $author_data->author($id)->name;
    $author_hash->{$id} = $name;
    push @authors,
      {
      id     => $id,
      name   => $name,
      avatar => get_gravatar_url($id),
      };
  }
  my $author_db = Acme::CPANAuthors::Factory->create( $category . '_temp' => $author_hash );
  for my $author (@authors) {

 view all matches for this distribution
 view release on metacpan -  search on metacpan