Making CPAN::Config work properly, and prepping for CPAN::Mini

Author: adamkennedy

Changes

@@ -1,5 +1,10 @@
 Changes for Perl extension Portable
 
+0.09 Wed  2 Jul 2008
+	- Fixing my_documents, my_data, etc in Portable::HomeDir.
+	- Implementing my_data also fixes Portable::CPAN.
+	- Adding CPAN::Mini as a dependency for that backend.
+
 0.08 Tue  1 Jul 2008
 	- Adding a dependency on a new version of File::HomeDir
 

Makefile.PL

@@ -5,6 +5,7 @@ requires      'List::Util'        => '1.19';
 requires      'File::Spec'        => '0.80';
 requires      'Parse::CPAN::Meta' => '0.03';
 requires      'File::HomeDir'     => '0.80';
+requires      'CPAN::Mini'        => '0.570';
 test_requires 'Test::More'        => '0.42';
 test_requires 'Class::Inspector'  => '1.20';
 

lib/CPAN/Mini/Portable.pm

@@ -3,10 +3,11 @@ package CPAN::Mini::Portable;
 use 5.008;
 use strict;
 use warnings;
-use base 'CPAN::Mini';
-use Portable ();
+use CPAN::Mini ();
+use Portable   ();
 
-our $VERSION = '0.08';
+our $VERSION = '0.09';
+our @ISA     = 'CPAN::Mini';
 
 sub new {
 	my $class = shift;

lib/Portable.pm

@@ -60,7 +60,7 @@ use File::Spec        ();
 use List::Util        ();
 use Parse::CPAN::Meta ();
 
-our $VERSION = '0.08';
+our $VERSION = '0.09';
 
 # 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.08';
+our $VERSION = '0.09';
 
 # 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.08';
+our $VERSION = '0.09';
 
 
 

lib/Portable/HomeDir.pm

@@ -9,8 +9,7 @@ use Carp                  ();
 use Scalar::Util          ();
 use File::HomeDir::Driver ();
 
-our $VERSION = '0.08';
-our @ISA     = ();
+our $VERSION = '0.09';
 
 
 
@@ -89,4 +88,29 @@ sub my_home {
 	_SELF(@_)->{my_home};
 }
 
+# The concept of "my_desktop" is incompatible with the idea of
+# a Portable Perl distribution (because Windows won't overwrite
+# the desktop with anything on the flash drive)
+# sub my_desktop
+
+sub my_documents {
+	_SELF(@_)->{my_documents};
+}
+
+sub my_music {
+	_SELF(@_)->{my_music};
+}
+
+sub my_pictures {
+	_SELF(@_)->{my_pictures};
+}
+
+sub my_videos {
+	_SELF(@_)->{my_videos};
+}
+
+sub my_data {
+	_SELF(@_)->{my_data};
+}
+
 1;

lib/Portable/minicpan.pm

@@ -5,8 +5,7 @@ use strict;
 use warnings;
 use Carp ();
 
-our $VERSION = '0.08';
-our @ISA     = ();
+our $VERSION = '0.09';