Completed the minicpan backend

Author: adamkennedy

Changes

@@ -1,5 +1,9 @@
 Changes for Perl extension Portable.
 
+0.11 Wed  2 Jul 2008
+	- Debugged the minicpan backend to the point where it will
+	  actually build and install properly.
+
 0.10 Wed  2 Jul 2008
 	- Working on a proper implementation of the minicpan backend.
 	- Added missing test_requires Test::Exception.

lib/CPAN/Mini/Portable.pm

@@ -6,16 +6,16 @@ use warnings;
 use Portable   ();
 use CPAN::Mini ();
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 our @ISA     = 'CPAN::Mini';
 
 sub new {
-	# Use the portable values as defaults
-	my $portable = Portable->default->portable;
+	# Use the portable values as defaults,
+	# completely ignoring any passed params
+	my $minicpan = Portable->default->minicpan;
 
 	# Hand off to the parent class
-	my $class = shift;
-	return $class->SUPER::new( %$portable, @_ );
+	return $_[0]->SUPER::new( %$minicpan );
 }
 
 1;

lib/Portable.pm

@@ -54,13 +54,12 @@ more details on how it works...
 use 5.008;
 use strict;
 use warnings;
-# use feature           'state';
 use Carp              ();
 use File::Spec        ();
 use List::Util        ();
 use Parse::CPAN::Meta ();
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 # This variable is provided exclusively for the
 # use of test scripts.

lib/Portable/CPAN.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Carp ();
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 # Create the enumerations
 our %bin  = map { $_ => 1 } qw{

lib/Portable/Config.pm

@@ -6,7 +6,7 @@ use warnings;
 use Carp       ();
 use File::Spec ();
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 
 

lib/Portable/HomeDir.pm

@@ -9,7 +9,7 @@ use Carp                  ();
 use Scalar::Util          ();
 use File::HomeDir::Driver ();
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 
 

lib/Portable/minicpan.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Carp ();
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 
 
@@ -41,6 +41,17 @@ sub new {
 		);
 	}
 
+	# Add the literal params
+	foreach my $key ( qw{
+		remote
+		quiet force offline
+		also_mirror exact_mirror
+		module_filters path_filters
+		skip_cleanup skip_perl
+	} ) {
+		$self->{$key} = $minicpan->{$key};
+	}
+
 	return $self;
 }
 

t/05_minicpan.t

@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use Test::More tests => 3;
+use File::Spec::Functions ':ALL';
+
+# Override the perl path for testing purposes
+$Portable::FAKE_PERL = 
+$Portable::FAKE_PERL = rel2abs(
+	catfile( qw{
+		t data perl bin perl.exe
+	} )
+);
+
+# Create a default object
+use_ok( 'CPAN::Mini::Portable' );
+my $object = CPAN::Mini::Portable->new(
+	'local'  => 1,
+	'remote' => 1,
+);
+isa_ok( $object, 'CPAN::Mini::Portable' );
+is(
+	$object->{remote},
+	'http://cpan.strawberryperl.com/',
+	'->remote ok',
+);
+
+1;