Permalink
Browse files

imported from version 0.01, see Changes file.

  • Loading branch information...
0 parents commit dd59e7f80386bf4b1491934c86212211962aad7b @barbie committed Apr 6, 2012
Showing with 847 additions and 0 deletions.
  1. +5 −0 Changes
  2. +17 −0 MANIFEST
  3. +15 −0 META.yml
  4. +21 −0 Makefile.PL
  5. +47 −0 README
  6. +26 −0 examples/author_info
  7. +26 −0 examples/company_info
  8. +8 −0 examples/count
  9. +372 −0 lib/Acme/CPANAuthors/British.pm
  10. +116 −0 lib/Acme/CPANAuthors/British/Companies.pm
  11. +10 −0 t/00load.t
  12. +54 −0 t/10british.t
  13. +51 −0 t/11companies.t
  14. +14 −0 t/90podtest.t
  15. +13 −0 t/91podcover.t
  16. +28 −0 t/94metatest.t
  17. +24 −0 t/95changedate.t
@@ -0,0 +1,5 @@
+Revision history for Acme-CPANAuthors-British
+
+0.01 10/11/2009
+ First version, released because no-one else dared!
+
@@ -0,0 +1,17 @@
+MANIFEST
+META.yml
+Makefile.PL
+README
+Changes
+lib/Acme/CPANAuthors/British.pm
+lib/Acme/CPANAuthors/British/Companies.pm
+examples/author_info
+examples/company_info
+examples/count
+t/00load.t
+t/10british.t
+t/11companies.t
+t/90podtest.t
+t/91podcover.t
+t/94metatest.t
+t/95changedate.t
@@ -0,0 +1,15 @@
+--- #YAML:1.0
+name: Acme-CPANAuthors-British
+version: 0.01
+abstract: We are British CPAN authors
+license: perl
+author:
+ - Barbie <barbie@cpan.org>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
+ Acme::CPANAuthors: 0.04
+ Test::More: 0.70
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Acme::CPANAuthors::British',
+ LICENSE => 'perl',
+ AUTHOR => 'Barbie <barbie@cpan.org>',
+ VERSION_FROM => 'lib/Acme/CPANAuthors/British.pm',
+ ABSTRACT_FROM => 'lib/Acme/CPANAuthors/British.pm',
+ PREREQ_PM => {
+ # prereqs
+ 'Acme::CPANAuthors' => '0.04',
+
+ # build/test prereqs
+ 'Test::More' => '0.70',
+ },
+ PL_FILES => {},
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'Acme-CPANAuthors-British-*' },
+);
47 README
@@ -0,0 +1,47 @@
+NAME
+
+ Acme::CPANAuthors::British - We are British CPAN authors
+
+DESCRIPTION
+
+ This class provides a hash of British CPAN authors' PAUSE ID and name to
+ the Acme::CPANAuthors module. As an added bonus this distribution also
+ includes a list of British Companies too!
+
+INSTALLATION
+
+ To install this module, run the following commands:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+SUPPORT AND DOCUMENTATION
+
+ After installing, you can find documentation for this module with the
+ perldoc command.
+
+ perldoc Acme::CPANAuthors::British
+
+ You can also look for information at:
+
+ RT, CPAN's request tracker
+ http://rt.cpan.org/NoAuth/Bugs.html?Dist=Acme-CPANAuthors-British
+
+ AnnoCPAN, Annotated CPAN documentation
+ http://annocpan.org/dist/Acme-CPANAuthors-British
+
+ CPAN Ratings
+ http://cpanratings.perl.org/d/Acme-CPANAuthors-British
+
+ Search CPAN
+ http://search.cpan.org/dist/Acme-CPANAuthors-British
+
+
+COPYRIGHT AND LICENCE
+
+ Copyright (C) 2009 Barbie for Miss Barbell Productions.
+
+ This program is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself.
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict;
+use Acme::CPANAuthors;
+
+die "usage: $0 PAUSE_ID [PAUSE_ID ...]\n" unless @ARGV;
+
+my $authors = Acme::CPANAuthors->new("British");
+
+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;
+}
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict;
+use Acme::CPANAuthors;
+
+die "usage: $0 PAUSE_ID [PAUSE_ID ...]\n" unless @ARGV;
+
+my $authors = Acme::CPANAuthors->new("British::Companies");
+
+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;
+}
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+use strict;
+use Acme::CPANAuthors;
+
+my $authors = Acme::CPANAuthors->new("British");
+my $number = $authors->count;
+
+print "$number declared British CPAN authors\n";
Oops, something went wrong.

0 comments on commit dd59e7f

Please sign in to comment.