Acme-CPANAuthors-Russian
view release on metacpan or search on metacpan
use strict;
use warnings;
use Module::Build;
my $builder = Module::Build->new(
module_name => 'Acme::CPANAuthors::Russian',
license => 'perl',
dist_author => [
'Anatoly Sharifulin <sharifulin@gmail.com>',
q|Zoffix <'zoffix@cpan.org'>|
],
dist_version_from => 'lib/Acme/CPANAuthors/Russian.pm',
build_requires => {
'Test::More' => 0,
},
requires => {
'Acme::CPANAuthors::Register' => 0,
'Acme::CPANAuthors' => 0,
'perl' => 5.006, # for META.yml
},
meta_merge => {
resources => {
repository => 'http://github.com/sharifulin/acme-cpanauthors-russian/tree',
},
keywords => [ 'CPAN', 'CPAN authors', 'Russian' ],
},
add_to_cleanup => [],
create_makefile_pl => 'traditional',
);
$builder->create_build_script();
Revision history for Acme-CPANAuthors-Russian
1.07 2011-07-25 00:23
Add ASDEEVA, MEETTYA, remove YKO
1.06 2010-10-28 11:44
164 authors
1.05 2010-10-28 00:41
163 authors and 106 pause ids
1.04 2010-07-30 19:25
159 authors and 104 pause ids
1.03 2010-07-30 02:19
150 authors and 101 pause ids
1.02 2010-02-25 18:09
1.01 was fail version. Now 147 authors and 101 pause ids
1.01 2010-02-25 18:09
114 authors and 69 pause ids
1.00 2009-10-16 02:22
129 authors and 86 pause ids
0.92 2009-06-05 11:17
116 authors and 79 pause ids
0.91 2009-04-24 01:46
Add examples/test.pl
Update script/cpan-aurhor.pl
Fix version and changes
0.11 2009-04-20 22:22
113 authors and 73 pause ids
Update Build.PL (thanks to chorny)
Change POD
0.10 2009-04-14
113 authors and 74 pause ids
0.9 2009-03-24
116 authors and 71 pause ids
0.8 2009-02-12
128 authors and 78 pause ids
0.6-0.7 February 11, 2009
126 authors
0.4-0.5 February 11, 2009
124 authors and 77 pause ids
0.3 February 10, 2009
123 authors
0.2 February 9, 2009
124 authors
0.0203 February 7, 2009
Added a lot of authors
0.02 February 7, 2009
Added 140 authors, script for fetch
0.0102 February 7, 2009
Added Anatoly Sharifulin
0.0101 November 2, 2008
First version, released on an unsuspecting world.
Build.PL
Changes
MANIFEST
README.pod
lib/Acme/CPANAuthors/Russian.pm
examples/test.pl
script/cpan-author.pl
script/cpan-faces.pl
t/00-load.t
t/pod-coverage.t
t/pod.t
Makefile.PL
META.yml
---
abstract: 'We are Russian CPAN authors'
author:
- 'Anatoly Sharifulin <sharifulin@gmail.com>'
- "Zoffix <'zoffix@cpan.org'>"
build_requires:
Test::More: 0
configure_requires:
Module::Build: 0.36
generated_by: 'Module::Build version 0.3607'
keywords:
- CPAN
- 'CPAN authors'
- Russian
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: Acme-CPANAuthors-Russian
provides:
Acme::CPANAuthors::Russian:
file: lib/Acme/CPANAuthors/Russian.pm
version: 1.07
requires:
Acme::CPANAuthors: 0
Acme::CPANAuthors::Register: 0
perl: 5.006
resources:
license: http://dev.perl.org/licenses/
repository: http://github.com/sharifulin/acme-cpanauthors-russian/tree
version: 1.07
=encoding UTF-8
=head1 NAME
Acme::CPANAuthors::Russian - We are Russian CPAN authors
=head1 SYNOPSIS
use Acme::CPANAuthors;
my $authors = Acme::CPANAuthors->new('Russian');
my $number = $authors->count;
my @ids = $authors->id;
my @distros = $authors->distributions("KAPPA");
my $url = $authors->avatar_url("SHARIFULN");
my $kwalitee = $authors->kwalitee("ZOFFIX");
my $name = $authors->name("ANDY");
See documentation for L<Acme::CPANAuthors> for more details.
=head1 DESCRIPTION
This class provides a hash of Russian CPAN authors' PAUSE ID and name to
the C<Acme::CPANAuthors> module.
=head1 MAINTENANCE
If you are a Russian CPAN author not listed here, please send us your ID/name
via email or RT so we can always keep this module up to date.
And if you aren't a Russian CPAN author listed here, please send us your ID/name
via email or RT and we will remove your name.
=head1 CONTAINED AUTHORS
Now B<165> Russian CPAN authors:
ABALAMA => 'Lepenkov Sergey',
ABEL => 'Anton Belousov',
AKHOBOV => 'Alexey Khobov',
AKIMOV => 'Akimov Alexey',
AKR => 'Alexey Kravchuk',
ALEXEVIL => 'Alex',
ALEXEYT => 'Alexey Toptygin',
ALGDR => 'Aleksandr Guidrevitch',
AMALTSEV => 'Andrew Maltsev',
L<Acme::CPANAuthors>
L<Acme::CPANAuthors::Register>
L<Acme::CPANAuthors::Utils::Kwalitee>
=head2 Real
=over 22
=item * L<Acme::CPANAuthors::Arabic>
We are the Arabic-speaking CPAN authors
=item * L<Acme::CPANAuthors::Austrian>
We are Austrian CPAN authors
=item * L<Acme::CPANAuthors::Brazilian>
We are Brazilian CPAN authors
=item * L<Acme::CPANAuthors::British> and L<Acme::CPANAuthors::British::Companies>
We are British CPAN authors and British Companies with PAUSE IDs
=item * L<Acme::CPANAuthors::Canadian>
We are Austrian CPAN authors
=item * L<Acme::CPANAuthors::Chinese>
We are Canadian CPAN authors
=item * L<Acme::CPANAuthors::Dutch>
Cheese heads and pot smokers
=item * L<Acme::CPANAuthors::EU>
EU CPAN authors: Austrian, French, German, Italian and Portuguese
=item * L<Acme::CPANAuthors::European>
European CPAN authors: Austrian, French, German, Icelandic, Italian, Norwegian, Portuguese, Russian, Turkish and Ukrainian
=item * L<Acme::CPANAuthors::French>
We are French CPAN authors
=item * <Acme::CPANAuthors::German>
We are German CPAN authors
=item * L<Acme::CPANAuthors::Icelandic>
We are Icelandic CPAN authors
=item * L<Acme::CPANAuthors::Indonesian>
We are Indonesian CPAN authors
=item * L<Acme::CPANAuthors::Israeli>
We are Israeli CPAN authors
=item * L<Acme::CPANAuthors::Italian>
We are Italian CPAN authors
=item * L<Acme::CPANAuthors::Japanese>
We are Japanese CPAN authors
=item * L<Acme::CPANAuthors::Norwegian>
We are Norwegian CPAN authors
=item * L<Acme::CPANAuthors::Portuguese>
We are the Portuguese CPAN authors
=item * L<Acme::CPANAuthors::Russian>
We are the Russian CPAN authors
=item * L<Acme::CPANAuthors::Taiwanese>
We are the Taiwanese CPAN authors
=item * L<Acme::CPANAuthors::Turkish>
We are the Turkish CPAN authors
=item * L<Acme::CPANAuthors::Ukrainian>
We are the Ukrainian CPAN authors
=back
=head2 Fun and etc
=over 10
=item * L<Acme::CPANAuthors::Not>
We are not CPAN authors
=item * L<Acme::CPANAuthors::Acme::CPANAuthors::Authors>
We are CPAN authors who have authored Acme::CPANAuthors modules
=item * L<Acme::CPANAuthors::Pumpkings>
We are pumpkings
=item * L<Acme::CPANAuthors::You::re_using>
We are the CPAN authors that have written the modules installed on your perl!
=item * L<Acme::CPANAuthors::CPANTS::FiveOrMore>
CPAN Authors with five or more dists
=item * L<Acme::CPANAuthors::GeekHouse>
We're CPAN Authors in The Geek House
=item * L<Acme::CPANAuthors::Misanthrope>
The CPAN authors who see into your soul with perfect clarity.
=item * L<Acme::CPANAuthors::CodeRepos>
We are CPAN authors using CodeRepos
=item * L<Acme::CPANAuthors::AnyEvent>
We are CPAN Authors of AnyEvent!
=item * L<Acme::CPANAuthors::POE>
We are CPAN Authors of POE
=back
L<http://search.cpan.org/search?query=Acme%3A%3ACPANAuthors&mode=all>
=head1 AUTHOR
Anatoly Sharifulin, C<< <sharifulin at gmail.com> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-acme-cpanauthors-russian at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-CPANAuthors-Russian>. We will be notified, and then you'll
automatically be notified of progress on your bug as we make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Acme::CPANAuthors::Russian
You can also look for information at:
=over 5
=item * Github
L<http://github.com/sharifulin/acme-cpanauthors-russian/tree/master>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Acme-CPANAuthors-Russian>
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/Acme-CPANAuthors-Russian>
=item * CPANTS: CPAN Testing Service
examples/test.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use lib '../lib';
use Acme::CPANAuthors;
my $a = Acme::CPANAuthors->new('Russian');
print 'Russian CPAN authors: ', $a->count, "\n";
printf "%-20s %s\n", $_, $a->name($_) for $a->id;
lib/Acme/CPANAuthors/Russian.pm view on Meta::CPAN
ZOFFIX => 'Zoffix Znet',
);
1;
__END__
=encoding UTF-8
=head1 NAME
Acme::CPANAuthors::Russian - We are Russian CPAN authors
=head1 SYNOPSIS
use Acme::CPANAuthors;
my $authors = Acme::CPANAuthors->new('Russian');
my $number = $authors->count;
my @ids = $authors->id;
my @distros = $authors->distributions("KAPPA");
my $url = $authors->avatar_url("SHARIFULN");
my $kwalitee = $authors->kwalitee("ZOFFIX");
my $name = $authors->name("ANDY");
See documentation for L<Acme::CPANAuthors> for more details.
=head1 DESCRIPTION
This class provides a hash of Russian CPAN authors' PAUSE ID and name to
the C<Acme::CPANAuthors> module.
=head1 MAINTENANCE
If you are a Russian CPAN author not listed here, please send us your ID/name
via email or RT so we can always keep this module up to date.
And if you aren't a Russian CPAN author listed here, please send us your ID/name
via email or RT and we will remove your name.
=head1 CONTAINED AUTHORS
Now B<165> Russian CPAN authors:
ABALAMA => 'Lepenkov Sergey',
ABEL => 'Anton Belousov',
AKHOBOV => 'Alexey Khobov',
AKIMOV => 'Akimov Alexey',
AKR => 'Alexey Kravchuk',
ALEXEVIL => 'Alex',
ALEXEYT => 'Alexey Toptygin',
ALGDR => 'Aleksandr Guidrevitch',
AMALTSEV => 'Andrew Maltsev',
lib/Acme/CPANAuthors/Russian.pm view on Meta::CPAN
L<Acme::CPANAuthors>
L<Acme::CPANAuthors::Register>
L<Acme::CPANAuthors::Utils::Kwalitee>
=head2 Real
=over 22
=item * L<Acme::CPANAuthors::Arabic>
We are the Arabic-speaking CPAN authors
=item * L<Acme::CPANAuthors::Austrian>
We are Austrian CPAN authors
=item * L<Acme::CPANAuthors::Brazilian>
We are Brazilian CPAN authors
=item * L<Acme::CPANAuthors::British> and L<Acme::CPANAuthors::British::Companies>
We are British CPAN authors and British Companies with PAUSE IDs
=item * L<Acme::CPANAuthors::Canadian>
We are Austrian CPAN authors
=item * L<Acme::CPANAuthors::Chinese>
We are Canadian CPAN authors
=item * L<Acme::CPANAuthors::Dutch>
Cheese heads and pot smokers
=item * L<Acme::CPANAuthors::EU>
EU CPAN authors: Austrian, French, German, Italian and Portuguese
=item * L<Acme::CPANAuthors::European>
European CPAN authors: Austrian, French, German, Icelandic, Italian, Norwegian, Portuguese, Russian, Turkish and Ukrainian
=item * L<Acme::CPANAuthors::French>
We are French CPAN authors
=item * <Acme::CPANAuthors::German>
We are German CPAN authors
=item * L<Acme::CPANAuthors::Icelandic>
We are Icelandic CPAN authors
=item * L<Acme::CPANAuthors::Indonesian>
We are Indonesian CPAN authors
=item * L<Acme::CPANAuthors::Israeli>
We are Israeli CPAN authors
=item * L<Acme::CPANAuthors::Italian>
We are Italian CPAN authors
=item * L<Acme::CPANAuthors::Japanese>
We are Japanese CPAN authors
=item * L<Acme::CPANAuthors::Norwegian>
We are Norwegian CPAN authors
=item * L<Acme::CPANAuthors::Portuguese>
We are the Portuguese CPAN authors
=item * L<Acme::CPANAuthors::Russian>
We are the Russian CPAN authors
=item * L<Acme::CPANAuthors::Taiwanese>
We are the Taiwanese CPAN authors
=item * L<Acme::CPANAuthors::Turkish>
We are the Turkish CPAN authors
=item * L<Acme::CPANAuthors::Ukrainian>
We are the Ukrainian CPAN authors
=back
=head2 Fun and etc
=over 10
=item * L<Acme::CPANAuthors::Not>
We are not CPAN authors
=item * L<Acme::CPANAuthors::Acme::CPANAuthors::Authors>
We are CPAN authors who have authored Acme::CPANAuthors modules
=item * L<Acme::CPANAuthors::Pumpkings>
We are pumpkings
=item * L<Acme::CPANAuthors::You::re_using>
We are the CPAN authors that have written the modules installed on your perl!
=item * L<Acme::CPANAuthors::CPANTS::FiveOrMore>
CPAN Authors with five or more dists
=item * L<Acme::CPANAuthors::GeekHouse>
We're CPAN Authors in The Geek House
=item * L<Acme::CPANAuthors::Misanthrope>
The CPAN authors who see into your soul with perfect clarity.
=item * L<Acme::CPANAuthors::CodeRepos>
We are CPAN authors using CodeRepos
=item * L<Acme::CPANAuthors::AnyEvent>
We are CPAN Authors of AnyEvent!
=item * L<Acme::CPANAuthors::POE>
We are CPAN Authors of POE
=back
lib/Acme/CPANAuthors/Russian.pm view on Meta::CPAN
L<http://search.cpan.org/search?query=Acme%3A%3ACPANAuthors&mode=all>
=head1 AUTHOR
Anatoly Sharifulin, C<< <sharifulin at gmail.com> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-acme-cpanauthors-russian at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-CPANAuthors-Russian>. We will be notified, and then you'll
automatically be notified of progress on your bug as we make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Acme::CPANAuthors::Russian
You can also look for information at:
=over 5
=item * Github
L<http://github.com/sharifulin/acme-cpanauthors-russian/tree/master>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Acme-CPANAuthors-Russian>
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/Acme-CPANAuthors-Russian>
=item * CPANTS: CPAN Testing Service
script/cpan-author.pl view on Meta::CPAN
print
map { @$_ }
grep { warn scalar @$_ }
[
# for module
map { sprintf "%-9s => '%s',\n", grep { defined } @$_{'pause', 'name', 'email'} }
sort { $a->{'pause'} cmp $b->{'pause'} }
# for list
#~ map { join("\t", grep { defined } @$_{'id', 'name', 'pause', 'author', 'email', 'url'}), "\n" }
# check email
#~ map { qq{"$_->{'pause'}" $_->{'email'}\n} }
#~ grep { $_->{'email'} && $_->{'email'} !~ /CENSORED/ && $_->{'email'} !~ /\.ru$/ }
# cpan author
grep { $_->{'author'} }
# not cpan author, have pause id
# grep {!$_->{'author'} }
# ru
grep { $_->{'pause'} eq 'STEALTHY' and $_->{'author'}=0; 1}
grep { $_->{'pause'} !~ /^(KORSHAK|AGNISLAV|ZERO|ZWON|SODASODA|CUB|DZHARIY|IHEFFNER|QUEVLAR|VTI|GUGU|EJS|GRUBER|EGORSH|MVUETS|BEROV|CYBER|NIKIP|TTOD|OMEGA|DRINCHEV|YAKWOO|PLCGI|MADZ|VMS|SHTATLAND|IVAN|ILYA|GREGORY|ERIC|DIMRUB|ANDREI|AXS|MOO|ICHLADI...
grep { $_->{'email'} !~ /ua$/ }
grep { $_->{'email'} !~ /bg$/ }
grep { $_->{'email'} !~ /by$/ }
grep { $_->{'email'} !~ /ws$/ }
grep { $_->{'email'} !~ /cz$/ }
# ua
# grep { $_->{'pause'} =~ /^ZERO|CUB|VTI|GUGU|EJS|GRUBER|MVUETS|DARKNOS|DZHARIY$/ || $_->{'email'} =~ /ua$/ }
script/cpan-author.pl view on Meta::CPAN
map {
my($url, $name ) = $_->[ 1] =~ /<a href="([^"]+)">([^<]+)/; $name ||= $_->[ 1]; $name =~ s/\s+$//; $name =~ s/&[^;]+;//sg;
my($url2, $pause) = $_->[-1] =~ /<a href="([^"]+)">([^<]+)/; $pause ||= $_->[-1];
+{
'id' => $_->[0],
'name' => $name,
'url' => $url,
'email' => $_->[2],
'pause' => $pause,
'author' => $url2 ? 1 : 0,
};
}
map {
[m{^ (\d+)\. \s ([^<]+ | <a.*?/a> | \s) .*? <a \s href="mailto:([^"]*)" .* -- \s+ (.*) $}x]
}
map { split m{\s*<br />\s*} }
grep { utf8::decode($_);1 }
do { local $/; open my $fh, '<', 'get_utf8.html'; <$fh> } =~ m{Archives</a></h3>(.*)<h3><a id="mailinglists"}s
# map { $_->is_success ? $_->content =~ m{Archives</a></h3>(.*)<h3><a id="mailinglists"}s : () }
# LWPUserAgent->new('timeout' => 15)->get('http://pause.perl.org/pause/query?ACTION=who_is')
script/cpan-author.pl view on Meta::CPAN
return $_;
}
}
1;
__END__
=head1 NAME
cpan-author.pl - try to find Russian CPAN authors
=head1 SYNOPSIS
./cpan-author.pl
=head1 DESCRIPTION
You can use this to find Russian CPAN authors or Russian PAUSE id accounts.
This script fetches data from L<http://pause.perl.org/pause/query?ACTION=who_is>.
See source code :)
=head1 AUTHOR
Anatoly Sharifulin, E<lt>sharifulin at gmail.comE<gt>
=head1 COPYRIGHT AND LICENSE
( run in 1.636 second using v1.01-cache-2.11-cpan-5c0b1e786e0 )