Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

version 0.14

  • Loading branch information...
commit a1cc4867b8031270eb246092c522cf325d4cf9b6 1 parent f2a8821
@sharifulin authored
View
BIN  Acme-CPANAuthors-Norwegian-0.13.tar.gz
Binary file not shown
View
BIN  Acme-CPANAuthors-Norwegian-0.14.tar.gz
Binary file not shown
View
3  Changes
@@ -1,5 +1,8 @@
Revision history for Acme-CPANAuthors-Norwegian
+0.14 2009-06-04 16:08
+ Wrong prereq in test suite
+
0.13 2009-05-05 11:11
32 authors
View
4 META.yml
@@ -1,6 +1,6 @@
---
name: Acme-CPANAuthors-Norwegian
-version: 0.13
+version: 0.14
author:
- 'Anatoly Sharifulin <sharifulin@gmail.com>'
abstract: We are Norwegian CPAN authors
@@ -17,7 +17,7 @@ build_requires:
provides:
Acme::CPANAuthors::Norwegian:
file: lib/Acme/CPANAuthors/Norwegian.pm
- version: 0.13
+ version: 0.14
generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
View
43 examples/find_authors.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+use strict;
+use LWP::UserAgent;
+use Data::Dumper;
+
+# http://event.perlukraine.org/upw2009/search?country=ua
+# my $SITE = 'http://event.perlukraine.org';
+# my $SEARCH = "$SITE/upw2009/search?country=ua";
+
+my $SITE = 'http://www.perlworkshop.no';
+my $SEARCH = "$SITE/npw2009/search?country=no";
+
+my $UA = LWP::UserAgent->new(timeout => 5);
+
+my @url;
+push @url, $UA->get(grep { warn$_ } $SEARCH.'&next=1&onext='. $_ * 20)->content =~ m{href="(/\w+/user/.*?)"}sg for 0..5;
+
+my @cpan;
+push @cpan, $UA->get(grep { warn$_ } $SITE.$_)->content =~ m{href="(http://search.*?)"}sg for @url;
+
+warn Dumper \@cpan;
+
+__END__
+Norway:
+
+'http://search.cpan.org/author/SJN/',
+'http://search.cpan.org/author/MRAMBERG/',
+'http://search.cpan.org/author/KRN/',
+'http://search.cpan.org/author/andremar/',
+'http://search.cpan.org/author/TRONDMM/',
+'http://search.cpan.org/author/ARNE/',
+'http://search.cpan.org/author/eidolon/',
+'http://search.cpan.org/author/NICOMEN/',
+'http://search.cpan.org/author/COSIMO/',
+'http://search.cpan.org/author/AFF/',
+'http://search.cpan.org/author/ESPIZO/'
+
+Ukraine:
+
+'http://search.cpan.org/author/MVUETS/',
+'http://search.cpan.org/author/DARKNOS/',
+'http://search.cpan.org/author/vti/',
+'http://search.cpan.org/author/dzhariy/'
View
2  lib/Acme/CPANAuthors/Norwegian.pm
@@ -4,7 +4,7 @@ use utf8; # encoding="utf-8"
use warnings;
use strict;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Acme::CPANAuthors::Register (
AFF => 'Andreas Faafeng',
View
4 t/00-load.t
@@ -5,7 +5,7 @@ use Test::More tests => 3;
BEGIN {
use_ok('Acme::CPANAuthors::Register');
use_ok('Acme::CPANAuthors');
- use_ok( 'Acme::CPANAuthors::Russian' );
+ use_ok('Acme::CPANAuthors::Norwegian');
}
-diag( "Testing Acme::CPANAuthors::Russian $Acme::CPANAuthors::Russian::VERSION, Perl $], $^X" );
+diag( "Testing Acme::CPANAuthors::Norwegian $Acme::CPANAuthors::Norwegian::VERSION, Perl $], $^X" );
Please sign in to comment.
Something went wrong with that request. Please try again.