Permalink
Browse files

reducing dependecies

  • Loading branch information...
semuel committed Oct 24, 2012
1 parent f0ae880 commit 8c84523b55cc56f6698d7f952e6e4e4c52d1c954
Showing with 35 additions and 25 deletions.
  1. +8 −0 Changes
  2. +12 −7 dist.ini
  3. +15 −18 lib/Dist/Surveyor.pm
View
@@ -3,10 +3,18 @@ Revision history for Dist-Surveyor
{{$NEXT}}
0.004 2012-10-18 13:40:39 Asia/Tokyo
+ adding MANIFEST.SKIP
+ created a private wrapper for DB_File, for storing Perl hashs
+ reducing dependecies
0.003 2012-10-10 13:53:57 Asia/Tokyo
+ change db file lock system to support windows
0.002 2012-10-03 17:42:13 Asia/Tokyo
+ don't die if there is not perllocal.pod available
+ SiePerl now have 5.8 version - got to catch them all
+ Middleware-RequestHeaders-0.03 included a lot of modules in his local-lib directory
+ clarifing warning wording about modules that are laready core in Perl
0.001 2011-11-17 13:00:29 Europe/Dublin
-
View
@@ -4,9 +4,6 @@ license = Perl_5
copyright_holder = Tim Bunce
copyright_year = 2011
-[Prereqs]
-;X X
-
[Prereqs / TestRequires]
Test::More = 0.88
@@ -27,7 +24,7 @@ Test::More = 0.88
[ReadmeFromPod]
; t tests
-[CompileTests]
+[Test::Compile]
fake_home = 1
; xt tests
@@ -37,8 +34,16 @@ fake_home = 1
[PortabilityTests]
; metadata
-[AutoPrereqs]
-skip=ExtUtils::Perllocal::Parser
+[Prereqs]
+version = 0
+Compress::Zlib = 0
+CPAN::DistnameInfo = 0
+Digest::SHA = 0
+LWP::UserAgent = 0
+Module::CoreList = 0
+Module::Metadata = 0
+JSON = 0
+
[MinimumPerl]
;[MetaProvides::Package]
[MetaNoIndex]
@@ -52,7 +57,7 @@ directory = corpus
; build system
[ExecDir]
-[ShareDir]
+;[ShareDir]
[MakeMaker]
; manifest (after all generated files)
View
@@ -14,29 +14,25 @@ use strict;
use warnings;
use version;
-use Carp;
+use Carp; # core
use Compress::Zlib;
-use Config;
+use Config; # core
use CPAN::DistnameInfo;
-use Data::Dumper;
-use DBI qw(looks_like_number);
+use Data::Dumper; # core
+use DBI qw(looks_like_number); # core
use Digest::SHA qw(sha1_base64);
-use Fcntl qw(:DEFAULT :flock);
-use File::Fetch;
-use File::Basename;
-use File::Find;
-use File::Path;
-use File::Slurp;
-use File::Spec;
-use Getopt::Long;
-use List::Util qw(max sum);
+use Fcntl qw(:DEFAULT :flock); # core
+use File::Basename qw{dirname}; # core
+use File::Find; # core
+use File::Path; # core
+use File::Spec; # core
+use Getopt::Long; # core
+use List::Util qw(max sum); # core
use LWP::UserAgent;
-use Memoize;
-use Dist::Surveyor::DB_File;
+use Memoize; # core
+use Dist::Surveyor::DB_File; # internal
use Module::CoreList;
use Module::Metadata;
-# use Storable qw(nfreeze);
-use URI;
use JSON;
use constant PROGNAME => 'dist_surveyor';
@@ -164,7 +160,7 @@ sub do_makecpan {
# --- get the file
- my $main_url = URI->new($ri->{download_url});
+ my $main_url = $ri->{download_url};
my $di = distname_info_from_url($main_url);
my $pathfile = "authors/id/".$di->pathname;
my $destfile = "$opt_makecpan/$pathfile";
@@ -993,6 +989,7 @@ sub find_installed_modules {
### ignore files that don't contain a matching package declaration
### warn about those that do contain some kind of package declaration
+ #use File::Slurp;
#my $content = read_file($File::Find::name);
#unless ( $content =~ m/^ \s* package \s+ (\#.*\n\s*)? $mod \b/xm ) {
#warn "No 'package $mod' seen in $File::Find::name\n"

0 comments on commit 8c84523

Please sign in to comment.