Acme-CPANAuthors-MBTI

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.009.
.gitignore
.mailmap
.perltidyrc
.travis.yml
Changes
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README
authorlists/ENFJ.txt

META.json  view on Meta::CPAN

                  }
               }
            },
            "name" : "@Author::KENTNL/Prereqs::Upgrade",
            "version" : "0.001001"
         },
         {
            "class" : "Dist::Zilla::Plugin::Prereqs::Recommend::MatchInstalled",
            "config" : {
               "Dist::Zilla::Plugin::Prereqs::Recommend::MatchInstalled" : {
                  "applyto_map" : [
                     "develop.suggests = develop.suggests"
                  ],
                  "applyto_phase" : [
                     "develop"
                  ],
                  "modules" : [
                     "Dist::Zilla::PluginBundle::Author::KENTNL",
                     "Dist::Zilla::App::Command::bakeini"
                  ],
                  "source_relation" : "requires",

dist.ini  view on Meta::CPAN

Dist::Zilla = 5
ExtUtils::MakeMaker = 7.00
File::ShareDir::Install = 0.10
Moo = 1.000008
Moose = 2.000
Path::Tiny = 0.058
Test::File::ShareDir = 1.000000
Test::More = 0.99

[Prereqs::Recommend::MatchInstalled / @Author::KENTNL/always_latest_develop_bundle]
applyto_map = develop.suggests = develop.suggests
applyto_phase = develop
modules = Dist::Zilla::PluginBundle::Author::KENTNL
modules = Dist::Zilla::App::Command::bakeini

[RemovePrereqs::Provided / @Author::KENTNL/RemovePrereqs::Provided]

[Prereqs / @Author::KENTNL/::Role::BundleDeps]
; auto_prereqs_skip = File::Find
-phase = develop
-relationship = requires

inc/expand_author_list.pm  view on Meta::CPAN

use JSON::MaybeXS 1.001000;
use Path::Tiny qw(path);
use HTML::Entities;
use Math::Random::MT;

sub tempdir { return state $tempdir = Path::Tiny->tempdir() }
sub http    { return state $http    = HTTP::Tiny->new() }
sub json    { return state $json    = JSON::MaybeXS->new( utf8 => 0 ) }

sub rng {
  return state $rng = Math::Random::MT->new( map { unpack 'L', $_ } q[Kent], q[ is ], q[a du], q[ll b], q[oy  ] );
}

sub dolog { *STDERR->print("$_[0]\n") }

sub mirror_whois {
  my ($filename) = @_;
  my $out = tempdir()->child($filename);
  dolog("Fetching $filename to $out");
  my $response = http()->mirror( 'http://www.cpan.org/authors/' . $filename, $out );
  die "failed to fetch $filename: $response->{status} $response->{reason}\n"

inc/expand_author_list.pm  view on Meta::CPAN

  my $category       = $config{category};

  my $authors     = '';
  my $avatar_urls = '';

  for my $author ( @{ $config{data} } ) {
    $authors     .= "    $author->{id} => '$author->{name}',\n";
    $avatar_urls .= "    $author->{id} => '$author->{avatar}',\n";
  }

  my @display_authors = map { $config{data}->[ rng->irand() % scalar @{ $config{data} } ] } 1;

  return <<"EOF";
# Code inserted by inc/expand_author_list#authors_to_code
# by $plugin_name $plugin_version
## no critic (ValuesAndExpressions::RestrictLongStrings)
my \%authors  = (
$authors);

my \%avatar_urls = (
$avatar_urls);

inc/expand_author_list.pm  view on Meta::CPAN

}

sub generate_synopsis {
  my (%config) = ref $_[0] ? %{ $_[0] } : @_;

  my $plugin         = $config{plugin};
  my $plugin_name    = $config{plugin_name} // ref $config{plugin};
  my $plugin_version = $config{plugin_version} // $plugin_name->VERSION;
  my @items          = @{ $config{'data'} };
  my @authors        = map { $items[ rng->irand() % scalar @items ] } 1 .. 3;

  return ( <<"EOF" =~ s/^(\S)/    $1/msgr );
use Acme::CPANAuthors;
use Acme::CPANAuthors::$config{category};
# Or just use Acme::CPANAuthors::MBTI

my \$authors  = Acme::CPANAuthors->new('$config{category}');
my \$number   = \$authors->count;
my \@ids      = \$authors->id;
my \@distros  = \$authors->distributions('$authors[0]->{id}');

t/00-report-prereqs.t  view on Meta::CPAN

                if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
                    push @dep_errors, "$mod is not installed ($req_string)";
                }
            }
        }

        if ( @reports ) {
            push @full_reports, "=== $title ===\n\n";

            my $ml = _max( map { length $_->[0] } @reports );
            my $wl = _max( map { length $_->[1] } @reports );
            my $hl = _max( map { length $_->[2] } @reports );

            if ($type eq 'modules') {
                splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
            }
            else {
                splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
            }

            push @full_reports, "\n";
        }
    }
}

if ( @full_reports ) {
    diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
}