[SCM] libcpan-meta-check-perl Debian packaging branch, master, updated. debian/0.004-1-39-g7d96c48

[Leon Timmermans]

The following commit has been merged in the master branch:
commit cbd08b91556ba638c2d63cdfa1148e3f81b04c30
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Wed May 9 20:47:35 2012 +0200

    Allow explicit setting of the include dir

diff --git a/Changes b/Changes
index b9d29e8..a13f178 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for CPAN-Meta-Check
 
 {{$NEXT}}
+          Allow explicit setting of the include dir
 
 0.002     2012-04-05 01:05:34 Europe/Amsterdam
           Add explicit dependency on CPAN::Meta 2.120920
diff --git a/lib/CPAN/Meta/Check.pm b/lib/CPAN/Meta/Check.pm
index 3620f94..9bff526 100644
--- a/lib/CPAN/Meta/Check.pm
+++ b/lib/CPAN/Meta/Check.pm
@@ -11,10 +11,10 @@ use CPAN::Meta::Requirements 2.120920;
 use Module::Metadata;
 
 sub _check_dep {
-	my ($reqs, $module) = @_;
+	my ($reqs, $module, $dirs) = @_;
 
 	my $version = $module eq 'perl' ? $] : do { 
-		my $metadata = Module::Metadata->new_from_module($module);
+		my $metadata = Module::Metadata->new_from_module($module, inc => $dirs);
 		return "Module '$module' is not installed" if not defined $metadata;
 		eval { $metadata->version };
 	};
@@ -24,8 +24,8 @@ sub _check_dep {
 }
 
 sub _check_conflict {
-	my ($reqs, $module) = @_;
-	my $metadata = Module::Metadata->new_from_module($module);
+	my ($reqs, $module, $dirs) = @_;
+	my $metadata = Module::Metadata->new_from_module($module, inc => $dirs);
 	return if not defined $metadata;
 	my $version = eval { $metadata->version };
 	return "Missing version info for module '$module'" if not $version;
@@ -49,26 +49,26 @@ sub requirements_for {
 }
 
 sub check_requirements {
-	my ($reqs, $type) = @_;
+	my ($reqs, $type, $dirs) = @_;
 
 	my %ret;
 	if ($type ne 'conflicts') {
 		for my $module ($reqs->required_modules) {
-			$ret{$module} = _check_dep($reqs, $module);
+			$ret{$module} = _check_dep($reqs, $module, $dirs);
 		}
 	}
 	else {
 		for my $module ($reqs->required_modules) {
-			$ret{$module} = _check_conflict($reqs, $module);
+			$ret{$module} = _check_conflict($reqs, $module, $dirs);
 		}
 	}
 	return \%ret;
 }
 
 sub verify_dependencies {
-	my ($meta, $phases, $type) = @_;
+	my ($meta, $phases, $type, $dirs) = @_;
 	my $reqs = requirements_for($meta, $phases, $type);
-	my $issues = check_requirements($reqs, $type);
+	my $issues = check_requirements($reqs, $type, $dirs);
 	return grep { defined } values %{ $issues };
 }
 
@@ -90,11 +90,11 @@ This module verifies if modules are
 
 This function checks if all dependencies in C<$reqs> (a L<CPAN::Meta::Requirements|CPAN::Meta::Requirements> object) are met, taking into account that 'conflicts' dependencies have to be checked in reverse. It returns a hash with the modules as values and any problems as keys, the value for a succesfully found module will be undef.
 
-=func verify_dependencies($meta, $phases, $types)
+=func verify_dependencies($meta, $phases, $types, $incdirs)
 
-Check all requirements in C<$meta> for phases C<$phases> and types C<$types>.
+Check all requirements in C<$meta> for phases C<$phases> and types C<$types>. Modules are searched for in C<@$incdirs>, defaulting to C<@INC>.
 
-=func requirements_for($meta, $phases, $types)
+=func requirements_for($meta, $phases, $types, incdirs)
 
-This function returns a unified L<CPAN::Meta::Requirements|CPAN::Meta::Requirements> object for all C<$type> requirements for C<$phases>. $Phases may be either one (scalar) value or an arrayref of valid values as defined by the L<CPAN::Meta spec|CPAN::Meta::Spec>. C<$type> must be a a relationship as defined by the same spec.
+This function returns a unified L<CPAN::Meta::Requirements|CPAN::Meta::Requirements> object for all C<$type> requirements for C<$phases>. $phases may be either one (scalar) value or an arrayref of valid values as defined by the L<CPAN::Meta spec|CPAN::Meta::Spec>. C<$type> must be a a relationship as defined by the same spec. Modules are searched for in C<@$incdirs>, defaulting to C<@INC>.
 

-- 
libcpan-meta-check-perl Debian packaging