Acme-CPANAuthors-Acme-CPANAuthors-Authors
view release on metacpan or search on metacpan
- Last commit before moving to github (unless I get distracted and forget)
v0.1234907192 | Tuesday February 17th 2009, 16:46:32 ET
- Vincent Pit (VPIT) for A::C::You're_using
+ Nice use of the old perl4 separator
v0.1234567890 | Friday, February 13th 2009, 23:31:30 UTC
- ACACA exists!
- 15 authors
- Released at UNIX epoch 1234567890 ...give or take.
_ -.-. .... .- -. --. . ... _________________________________________
For more information, sift through the commit logs:
http://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors/commits/master
Build.PL
Changes
LICENSE
MANIFEST
META.json
META.yml
README
lib/Acme/CPANAuthors/Acme/CPANAuthors/Authors.pm
scripts/author_info.pl
scripts/basic_info.pl
t/00-load.t
t/release-pod-syntax.t
{
"abstract" : "We are CPAN authors who have authored Acme::CPANAuthors modules",
"author" : [
"Sanko Robinson <sanko@cpan.org> - http://sankorobinson.com/"
],
"dynamic_config" : 0,
"generated_by" : "Dist::Milla version v1.0.2, Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.130880",
"license" : [
"artistic_2"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : "2"
},
"test" : {
"requires" : {
"Test::More" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"web" : "https://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors/issues"
},
"homepage" : "https://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors",
"repository" : {
"type" : "git",
"url" : "https://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors.git",
"web" : "https://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors"
}
},
"version" : "v1.0.0",
"x_contributors" : [
"Karen Etheridge <ether@cpan.org>",
"Sergey Romanov <complefor@rambler.ru>"
]
}
---
abstract: 'We are CPAN authors who have authored Acme::CPANAuthors modules'
author:
- 'Sanko Robinson <sanko@cpan.org> - http://sankorobinson.com/'
build_requires:
Test::More: 0
configure_requires:
Module::Build::Tiny: 0.020
dynamic_config: 0
generated_by: 'Dist::Milla version v1.0.2, Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.130880'
license: artistic_2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- share
- eg
- examples
requires:
Acme::CPANAuthors::Register: 0
perl: 5.010
strict: 0
version: 0
warnings: 0
resources:
bugtracker: https://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors/issues
homepage: https://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors
repository: https://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors.git
version: v1.0.0
x_contributors:
- 'Karen Etheridge <ether@cpan.org>'
- 'Sergey Romanov <complefor@rambler.ru>'
NAME
Acme::CPANAuthors::Acme::CPANAuthors::Authors - We are CPAN authors who
have authored Acme::CPANAuthors modules
Synopsis
use Acme::CPANAuthors;
my $authors = Acme::CPANAuthors->new('Acme::CPANAuthors::Acme::CPANAuthors::Authors');
$number = $authors->count;
@ids = $authors->id;
@distros = $authors->distributions('ACALPINI');
$url = $authors->avatar_url('SHLOMIF');
$kwalitee = $authors->kwalitee('SANKO');
Description
This class provides a hash of Pause IDs/names of Acme::CPANAuthors::*
authorin' CPAN authors.
I started this module because Acme::CPANAuthors::UnitedStates doesn't
exist and apparently I'm not listed in Acme::CPANAuthors::Japanese.
((sigh)) I just want to be a part of something... great... greater...
than-- um, sorry, lost my train of thought.
Anyway, I decided both Acme::CPANAuthors::Earth (well covered between
http://search.cpan.org/author/ and
http://pause.perl.org/pause/query?ACTION=who_is) and
Acme::CPANAuthors::Authors (only include authors who have published at
least one distribution, script, etc.) would just be too time consuming
for a 3AM lapse in judgement so... there you are.
Installation
To install this module, run the following commands:
perl Build.PL
./Build
./Build test
./Build install
Maintenance
Have you authored a module in the "Acme::CPANAuthors" namespace, aren't
listed here, and would like to be? Or are you currently listed but have
since turned away from your deviant, "Acme" ways and would like to be
removed? Just contact me via email or stop by the Issue Tracker and I'll
fix ya right up.
Bugs
Report any bugs or feature requests to the Issue tracker or directly to
me via email. I'll keep you up to date on any related changes.
Seriously, it's just a list of names... what could possibly go wrong?
Support
You can find documentation for this module with the perldoc command.
perldoc Acme::CPANAuthors::Acme::CPANAuthors::Authors
You can also look for information at:
* Issue Tracker: Acme::CPANAuthors::Acme::CPANAuthors::Authors' bug
tracker
http://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors/is
sues/
* AnnoCPAN: Annotated CPAN documentation
http://annocpan.org/dist/Acme-CPANAuthors-Acme-CPANAuthors-Authors
* CPAN Ratings
http://cpanratings.perl.org/d/Acme-CPANAuthors-Acme-CPANAuthors-Auth
ors
* Search CPAN
http://search.cpan.org/dist/Acme-CPANAuthors-Acme-CPANAuthors-Author
s
* Version Control Repository:
http://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors/
See Also
Acme::CPANAuthors, Acme::CPANAuthors::Japanese,
Acme::CPANAuthors::Misanthrope, Acme::CPANAuthors::Not, et al.
See the examples found in /scripts/ for usage.
Acknowledgements
Kenichi Ishigaki for Acme::CPANAuthors
lib/Acme/CPANAuthors/Acme/CPANAuthors/Authors.pm view on Meta::CPAN
package Acme::CPANAuthors::Acme::CPANAuthors::Authors;
use strict;
use warnings;
=head1 NAME
Acme::CPANAuthors::Acme::CPANAuthors::Authors - We are CPAN authors who have authored Acme::CPANAuthors modules
=cut
use version; our $VERSION = version->declare('v1.0.0');
use Acme::CPANAuthors::Register (
ABIGAIL => q[Abigail], # A::C::Dutch ...or not.
ACALPINI => q[Aldo Calpini], # A::C::Italian
ASHLEY => q[Ashley Pond V], # A::C::Misanthrope
AZAWAWI =>
q[Ø£Øمد Ù…Øمد زواوي - Ahmad M. Zawawi], # A::C::Arabic
lib/Acme/CPANAuthors/Acme/CPANAuthors/Authors.pm view on Meta::CPAN
SKIM => q[Michal Å paÄek], # A::C::Czech
SROMANOV => q[Сергей Романов], # A::C::Belarusian
VPIT => q[Vincent Pit], # A::C::You're_using
WOLDRICH => q[Magnus Woldrich], # A::C::Swedish
ZOFFIX => q[Zoffix Znet] # A::C::Canadian
);
sub _regen {
require HTTP::Tiny;
my $data = '';
my $authsec = 0;
my %authors;
die "Failed\n"
unless HTTP::Tiny->new->request(
'GET',
'http://www.cpan.org/modules/02packages.details.txt',
{data_callback => sub { # Don't scrape the whole file
my $chunk = shift;
if ($chunk =~ m[^Acme::CPANAuthors]sm) {
$authsec++;
$data .= $chunk;
}
elsif ($authsec) { # No more Authors in 02packages
while ($data
=~ m[^(?:Acme::CPANAuthors(?:::(\S+))?).+\w/\w\w/(\w+)/.+$]mg
)
{ $authors{$2} //= [];
push @{$authors{$2}}, $1;
}
my %old = authors(); # Current authors
my @new = grep { defined $old{$_} ? () : $_ } keys %authors;
print scalar(@new)
. " new Acme::CPANAuthors authors to add\n";
return if !@new;
require MetaCPAN::API;
my $mcpan = MetaCPAN::API->new();
binmode(STDOUT, ':utf8');
for my $id (sort @new) {
my $author = $mcpan->author($id);
printf " %s => q[%s], # %s\n", $id, $author->{name},
join ', ', map { 'A::C::' . $_ } @{$authors{$id}};
}
exit # We're done
}
}
}
)->{success};
}
1;
=head1 Synopsis
use Acme::CPANAuthors;
my $authors = Acme::CPANAuthors->new('Acme::CPANAuthors::Acme::CPANAuthors::Authors');
$number = $authors->count;
@ids = $authors->id;
@distros = $authors->distributions('ACALPINI');
$url = $authors->avatar_url('SHLOMIF');
$kwalitee = $authors->kwalitee('SANKO');
=head1 Description
This class provides a hash of Pause IDs/names of Acme::CPANAuthors::*
authorin' CPAN authors.
I started this module because
L<Acme::CPANAuthors::UnitedStates|Acme::CPANAuthors::UnitedStates> doesn't
exist and apparently I'm not listed in
L<Acme::CPANAuthors::Japanese|Acme::CPANAuthors::Japanese>. ((sigh)) I just
want to be a part of something... great... greater... than-- um, sorry, lost
my train of thought.
Anyway, I decided both L<Acme::CPANAuthors::Earth|Acme::CPANAuthors::Earth>
(well covered between http://search.cpan.org/author/ and
http://pause.perl.org/pause/query?ACTION=who_is) and
L<Acme::CPANAuthors::Authors|Acme::CPANAuthors::Authors> (only include authors
who have published at least one distribution, script, etc.) would just be too
time consuming for a 3AM lapse in judgement so... there you are.
=head1 Installation
To install this module, run the following commands:
perl Build.PL
./Build
./Build test
./Build install
=head1 Maintenance
Have you authored a module in the C<Acme::CPANAuthors> namespace, aren't
listed here, and would like to be? Or are you currently listed but have since
turned away from your deviant, C<Acme> ways and would like to be removed? Just
contact me L<via email|/"AUTHOR"> or stop by the Issue Tracker and I'll fix ya
right up.
=head1 Bugs
Report any bugs or feature requests to the Issue tracker or
directly to L<me via email|/"AUTHOR">. I'll keep you up to date on any related
changes.
lib/Acme/CPANAuthors/Acme/CPANAuthors/Authors.pm view on Meta::CPAN
You can find documentation for this module with the perldoc command.
perldoc Acme::CPANAuthors::Acme::CPANAuthors::Authors
You can also look for information at:
=over 4
=item * Issue Tracker: Acme::CPANAuthors::Acme::CPANAuthors::Authors' bug tracker
http://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors/issues/
=item * AnnoCPAN: Annotated CPAN documentation
http://annocpan.org/dist/Acme-CPANAuthors-Acme-CPANAuthors-Authors
=item * CPAN Ratings
http://cpanratings.perl.org/d/Acme-CPANAuthors-Acme-CPANAuthors-Authors
=item * Search CPAN
http://search.cpan.org/dist/Acme-CPANAuthors-Acme-CPANAuthors-Authors
=item * Version Control Repository:
http://github.com/sanko/acme-cpanauthors-acme-cpanauthors-authors/
=back
=head1 See Also
L<Acme::CPANAuthors|Acme::CPANAuthors>,
L<Acme::CPANAuthors::Japanese|Acme::CPANAuthors::Japanese>,
L<Acme::CPANAuthors::Misanthrope|Acme::CPANAuthors::Misanthrope>,
L<Acme::CPANAuthors::Not|Acme::CPANAuthors::Not>, et al.
scripts/author_info.pl view on Meta::CPAN
#!perl -I../lib
use strict;
use Acme::CPANAuthors;
die "usage: $0 PAUSE_ID [PAUSE_ID ...]\n" unless @ARGV;
my $authors
= Acme::CPANAuthors->new("Acme::CPANAuthors::Acme::CPANAuthors::Authors");
for my $id (@ARGV) {
$id = uc $id;
my $name = $authors->name($id) || $id;
my @dists = $authors->distributions($id);
my $kwalitee = $authors->kwalitee($id);
print "$name has published ", ~~ @dists, " distributions:\n";
@dists = sort { lc($a->dist) cmp lc($b->dist) } @dists;
for my $dist (@dists) {
printf " - %s v%s, kwalitee %s\n",
$dist->dist, $dist->version,
$kwalitee->{distributions}{$dist->dist}{kwalitee},
;
}
print $/ if @ARGV > 1;
}
scripts/basic_info.pl view on Meta::CPAN
#!perl -I../lib
use strict;
use warnings;
use Acme::CPANAuthors;
my $authors
= Acme::CPANAuthors->new('Acme::CPANAuthors::Acme::CPANAuthors::Authors');
printf 'ACACA v%s contains %d authors and is brought to you by %s.',
$Acme::CPANAuthors::Acme::CPANAuthors::Authors::VERSION, $authors->count,
$authors->name('SANKO');
( run in 3.143 seconds using v1.01-cache-2.11-cpan-5c0b1e786e0 )