Acme-CPANAuthors-MBTI
view release on metacpan or search on metacpan
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the
appropriate parts of the General Public License. Of course, the
commands you use may be called something other than `show w' and `show
c'; they could even be mouse-clicks or menu items--whatever suits your
program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here a sample; alter the names:
"version" : "0.001002"
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"web" : "https://github.com/kentnl/Acme-CPANAuthors-MBTI/issues"
},
"homepage" : "https://github.com/kentnl/Acme-CPANAuthors-MBTI",
"repository" : {
"type" : "git",
"url" : "https://github.com/kentnl/Acme-CPANAuthors-MBTI.git",
"web" : "https://github.com/kentnl/Acme-CPANAuthors-MBTI"
}
},
"version" : "0.001002",
"x_BuiltWith" : {
"external_file" : "misc/built_with.json"
},
"x_Dist_Zilla" : {
"perl" : {
{
"class" : "Dist::Zilla::Plugin::AutoPrereqs",
"name" : "@Author::KENTNL/AutoPrereqs",
"version" : "6.009"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "suggests"
}
},
"name" : "@Author::KENTNL/BundleDevelSuggests",
"version" : "6.009"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs::AuthorDeps",
"name" : "@Author::KENTNL/Prereqs::AuthorDeps",
"version" : "0.006"
},
{
"class" : "Dist::Zilla::Plugin::RemovePrereqs::Provided",
"name" : "@Author::KENTNL/RemovePrereqs::Provided",
"version" : "0.001001"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "requires"
}
},
"name" : "@Author::KENTNL/::Role::BundleDeps",
"version" : "6.009"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "runtime",
"type" : "requires"
}
},
"name" : "Prereqs",
"version" : "6.009"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "requires"
}
},
"name" : "DevelopRequires",
"version" : "6.009"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
"version" : "6.009"
},
Thus, one can conjecture what one *might* do in a slightly better manner
than enumerating all possible behaviours observed in humans.
Blah blah blah more ranting here.
Creds to "ETHER" <https://metacpan.org/author/ETHER> for the original
entry I stole all the things from and refactored them to death,
Acme::CPANAuthors::Nonhuman
Subsequently, my source file is a lot smaller and needs about 3
variables modifed to make a new type.
So just change the files in "/authorlists"
INSTALLATION
This is a Perl module distribution. It should be installed with whichever
tool you use to manage your installation of Perl, e.g. any of
cpanm .
cpan .
mantissa = 6
normal_form = numify
[PodWeaver / @Author::KENTNL/PodWeaver]
replacer = replace_with_blank
[AutoPrereqs / @Author::KENTNL/AutoPrereqs]
[Prereqs / @Author::KENTNL/BundleDevelSuggests]
-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
default_jobs = 10
[Author::KENTNL::RecommendFixes / @Author::KENTNL/Author::KENTNL::RecommendFixes]
:version = 0.004002
[Readme::Brief / @Author::KENTNL/ShippedReadme]
[ReadmeAnyFromPod / @Author::KENTNL/ReadmeAnyFromPod]
filename = README.mkdn
location = root
type = markdown
[Test::CPAN::Changes / @Author::KENTNL/Test::CPAN::Changes]
[RunExtraTests / @Author::KENTNL/RunExtraTests]
default_jobs = 10
[TestRelease / @Author::KENTNL/TestRelease]
[ConfirmRelease / @Author::KENTNL/ConfirmRelease]
inc/expand_author_list.pm view on Meta::CPAN
<div style="text-align:center;padding:0px!important;overflow-y:hidden;
margin-left: auto; margin-right: auto; max-width: 430px">
<!-- Data inserted by inc/expand_author_list#authors_to_avatars
by $plugin_name $plugin_version -->
$content
</div>
EOF
}
sub mbti_type {
my ($type) = @_;
return <<"EOF";
L<< C<$type>|https://en.wikipedia.org/wiki/$type >>
EOF
}
sub mbti_description_text {
my ($type) = @_;
my $lctype = lc($type);
return <<"EOF";
For more details see L<< C<Acme::CPANAuthors::MBTI>|Acme::CPANAuthors::MBTI >>.
=over 4
=item * L<< C<$type> on personalitypage.com|http://personalitypage.com/$type.html >>
=item * L<< C<$type> on typelogic.com|http://typelogic.com/$lctype.html >>
=item * L<< C<$type> on Wikipedia|https://en.wikipedia.org/wiki/$type >>
=back
EOF
}
sub mbti_description {
my (%config) = ref $_[0] ? %{ $_[0] } : @_;
my $html = authors_to_avatars( \%config );
my $description = mbti_description_text( $config{type} );
my $link = mbti_type( $config{type} );
return <<"EOF";
This class provides a hash of PAUSE ID's and names of authors
who have identified themselves as $link
=begin html
$html
=end html
lib/Acme/CPANAuthors/MBTI.pm view on Meta::CPAN
at being relative to the demographic average Y.
Thus, one can conjecture what one I<might> do in a slightly better manner than enumerating
all possible behaviours observed in humans.
Blah blah blah more ranting here.
Creds to L<< C<ETHER>|https://metacpan.org/author/ETHER >> for the original entry I stole
all the things from and refactored them to death, L<Acme::CPANAuthors::Nonhuman>
Subsequently, my source file is a lot smaller and needs about 3 variables modifed to make a new type.
So just change the files in C</authorlists>
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 by Kent Fredric <kentfredric@gmail.com>.
lib/Acme/CPANAuthors/MBTI/INTP.pm view on Meta::CPAN
by Dist::Zilla::Plugin::MungeFile::WithDataSection 0.009 -->
<a href="http://metacpan.org/author/KENTNL"><span><img style="margin: 0 5px 5px 0;" width="80" height="80" src="https://secure.gravatar.com/avatar/4b96677ae9ecbe76b8c33ead244f7407?s=80&d=http%3A%2F%2Fwww.gravatar.com%2Favatar%2F4b96677ae9ecbe76b8c33e...
</div>
For more details see L<< C<Acme::CPANAuthors::MBTI>|Acme::CPANAuthors::MBTI >>.
=over 4
=item * L<< C<INTP> on personalitypage.com|http://personalitypage.com/INTP.html >>
=item * L<< C<INTP> on typelogic.com|http://typelogic.com/intp.html >>
=item * L<< C<INTP> on Wikipedia|https://en.wikipedia.org/wiki/INTP >>
=back
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
perlcritic.rc view on Meta::CPAN
[Subroutines::ProhibitExportingUndeclaredSubs]
[Subroutines::ProhibitManyArgs]
[Subroutines::ProhibitNestedSubs]
[Subroutines::ProhibitQualifiedSubDeclarations]
[Subroutines::ProhibitReturnSort]
[Subroutines::ProhibitSubroutinePrototypes]
[Subroutines::ProhibitUnusedPrivateSubroutines]
private_name_regex = _(?!build_)\w
[Subroutines::ProtectPrivateSubs]
[Subroutines::RequireArgUnpacking]
[Subroutines::RequireFinalReturn]
t/00-report-prereqs.t view on Meta::CPAN
# CPAN::Meta::Prereqs object
if (ref $collector eq $cpan_meta_pre) {
return $collector->with_merged_prereqs(
CPAN::Meta::Prereqs->new( $prereqs )
);
}
# Raw hashrefs
for my $phase ( keys %$prereqs ) {
for my $type ( keys %{ $prereqs->{$phase} } ) {
for my $module ( keys %{ $prereqs->{$phase}{$type} } ) {
$collector->{$phase}{$type}{$module} = $prereqs->{$phase}{$type}{$module};
}
}
}
return $collector;
}
my @include = qw(
);
t/00-report-prereqs.t view on Meta::CPAN
# Add static includes into a fake section
for my $mod (@include) {
$req_hash->{other}{modules}{$mod} = 0;
}
for my $phase ( qw(configure build test runtime develop other) ) {
next unless $req_hash->{$phase};
next if ($phase eq 'develop' and not $ENV{AUTHOR_TESTING});
for my $type ( qw(requires recommends suggests conflicts modules) ) {
next unless $req_hash->{$phase}{$type};
my $title = ucfirst($phase).' '.ucfirst($type);
my @reports = [qw/Module Want Have/];
for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) {
next if $mod eq 'perl';
next if grep { $_ eq $mod } @exclude;
my $file = $mod;
$file =~ s{::}{/}g;
$file .= ".pm";
my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
my $want = $req_hash->{$phase}{$type}{$mod};
$want = "undef" unless defined $want;
$want = "any" if !$want && $want == 0;
my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required";
if ($prefix) {
my $have = MM->parse_version( File::Spec->catfile($prefix, $file) );
$have = "undef" unless defined $have;
push @reports, [$mod, $want, $have];
if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
if ( $have !~ /\A$lax_version_re\z/ ) {
push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
}
elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) {
push @dep_errors, "$mod version '$have' is not in required range '$want'";
}
}
}
else {
push @reports, [$mod, $want, "missing"];
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";
}
( run in 1.037 second using v1.01-cache-2.11-cpan-df04353d9ac )