Permalink
Browse files

abstraction of Article.pm to new distro

  • Loading branch information...
1 parent 335564c commit 453b21cf28ad6cdd80eeeaf3f775c12f777b4b53 barbie committed Feb 16, 2009
Showing with 113 additions and 647 deletions.
  1. +8 −0 CHANGES
  2. +0 −2 MANIFEST
  3. +3 −12 META.yml
  4. +2 −8 Makefile.PL
  5. +1 −2 bin/cpanstats
  6. +1 −3 bin/cpanstats-reparse
  7. +3 −4 lib/CPAN/Testers/Data/Generator.pm
  8. +0 −413 lib/CPAN/Testers/Data/Generator/Article.pm
  9. +1 −2 t/01base.t
  10. +1 −47 t/10functions.t
  11. +0 −120 t/11article.t
  12. +93 −34 t/12generate.t
View
@@ -1,5 +1,13 @@
Revision history for Perl module CPAN::Testers::Data::Generator.
+0.36 16/02/2009
+ - clean up of pre-requisites.
+ - CPAN::Testers::Data::Generator::Article abstracted into its own
+ distribution CPAN-Testers-Common-Article.
+ - fixed scripts due to above:
+ bin/cpanstats (v0.07)
+ bin/cpanstats-reparse (v0.10)
+
0.35 29/01/2009
- updated patterns when extracting perl version (Article.pm).
- updated patterns when extracting osname (Article.pm).
View
@@ -17,10 +17,8 @@ examples/cpanstats-verify.sh
examples/generate.sh
examples/settings-example.ini
lib/CPAN/Testers/Data/Generator.pm
-lib/CPAN/Testers/Data/Generator/Article.pm
t/01base.t
t/10functions.t
-t/11article.t
t/12generate.t
t/90podtest.t
t/91podcover.t
View
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: CPAN-Testers-Data-Generator
-version: 0.35
+version: 0.36
abstract: Download and summarize CPAN Testers data
author:
- Barbie <barbie@cpan.org>
@@ -11,11 +11,9 @@ distribution_type: module
installdirs: site
requires:
- Cwd: 0
Config::IniFiles: 0
- CPAN::DistnameInfo: 0
+ CPAN::Testers::Common::Article: 0.36
CPAN::Testers::Common::DBUtils: 0.03
- Class::Accessor::Fast: 0
DBD::mysql: 0
DBD::SQLite: 1.07
Email::Simple: 0
@@ -24,11 +22,7 @@ requires:
IO::File: 0
Getopt::ArgvFile: 0
Getopt::Long: 0
- MIME::Base64: 0
- MIME::QuotedPrint: 0
Net::NNTP: 0
- Time::Local: 0
- version: 0
recommends:
Test::More: 0.70
Test::MockObject: 0
@@ -41,10 +35,7 @@ build_requires:
provides:
CPAN::Testers::Data::Generator:
file: lib/CPAN/Testers/Data/Generator.pm
- version: 0.35
- CPAN::Testers::Data::Generator::Article:
- file: lib/CPAN/Testers/Data/Generator/Article.pm
- version: 0.35
+ version: 0.36
no_index:
directory:
View
@@ -3,23 +3,17 @@ WriteMakefile(
'NAME' => 'CPAN::Testers::Data::Generator',
'VERSION_FROM' => 'lib/CPAN/Testers/Data/Generator.pm',
'PREREQ_PM' => {
- 'Cwd' => 0, # only for scripts
+ 'Email::Simple' => 0, # only for scripts
'Getopt::Long' => 0, # only for scripts
'Getopt::ArgvFile' => 0, # only for scripts
- 'Class::Accessor::Fast' => 0,
'Config::IniFiles' => 0,
- 'CPAN::DistnameInfo' => 0,
+ 'CPAN::Testers::Common::Article' => 0.36,
'CPAN::Testers::Common::DBUtils' => 0.03,
- 'Email::Simple' => 0,
'File::Basename' => 0,
'File::Path' => 0,
'IO::File' => 0,
- 'MIME::Base64' => 0,
- 'MIME::QuotedPrint' => 0,
'Net::NNTP' => 0,
- 'Time::Local' => 0,
- 'version' => 0,
'DBD::mysql' => 0,
'DBD::SQLite' => 1.07,
View
@@ -1,14 +1,13 @@
#!/usr/bin/perl -w
use strict;
-my $VERSION = '0.06';
+my $VERSION = '0.07';
#----------------------------------------------------------------------------
# Library Modules
use lib qw(../lib lib);
-use Cwd;
use Getopt::ArgvFile default=>1;
use Getopt::Long;
View
@@ -2,7 +2,7 @@
use strict;
$|++;
-my $VERSION = '0.09';
+my $VERSION = '0.10';
#----------------------------------------------------------------------------
@@ -41,8 +41,6 @@ amend the appropriate field to the correct value.
use lib qw(./lib ../lib);
-use Cwd;
-use DBI;
use Getopt::ArgvFile default=>1;
use Getopt::Long;
use IO::File;
@@ -4,20 +4,19 @@ use warnings;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35';
+$VERSION = '0.36';
#----------------------------------------------------------------------------
# Library Modules
use Config::IniFiles;
+use CPAN::Testers::Common::Article;
use CPAN::Testers::Common::DBUtils;
use File::Basename;
use File::Path;
use IO::File;
use Net::NNTP;
-use CPAN::Testers::Data::Generator::Article;
-
#----------------------------------------------------------------------------
# The Application Programming Interface
@@ -195,7 +194,7 @@ sub nntp_connect {
sub parse_article {
my ($self,$id,$article,$options) = @_;
- my $object = CPAN::Testers::Data::Generator::Article->new($article);
+ my $object = CPAN::Testers::Common::Article->new($article);
unless($object) {
$self->_log(" ... bad parse\n");
Oops, something went wrong.

0 comments on commit 453b21c

Please sign in to comment.