Re: [perl #46011] [RESOLVED] overload "0+" doesn't handle integer results

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / Internals.pm

diff --git a/lib/CPANPLUS/Internals.pm b/lib/CPANPLUS/Internals.pm
index 897a4a7..7d02eeb 100644 (file)
--- a/lib/CPANPLUS/Internals.pm
+++ b/lib/CPANPLUS/Internals.pm
@@ -40,7 +40,7 @@ use vars qw[@ISA $VERSION];
             CPANPLUS::Internals::Report
         ];
 
-$VERSION = "0.79_02";
+$VERSION = "0.82";
 
 =pod
 
@@ -99,6 +99,8 @@ for my $key ( qw[_conf _id _lib _perl5lib _modules _hosts _methods _status
 
 =pod
 
+=back
+
 =head1 METHODS
 
 =head2 $internals = CPANPLUS::Internals->_init( _conf => CONFIG_OBJ )
@@ -114,7 +116,7 @@ Returns the object on success, or dies on failure.
     ### if extra callbacks are added, don't forget to update the
     ### 02-internals.t test script with them!
     my $callback_map = {
-        ### name            default value    
+        ### name                default value    
         install_prerequisite    => 1,   # install prereqs when 'ask' is set?
         edit_test_report        => 0,   # edit the prepared test report?
         send_test_report        => 1,   # send the test report?
@@ -122,6 +124,9 @@ Returns the object on success, or dies on failure.
         munge_test_report       => sub { return $_[1] },
                                         # filter out unwanted prereqs
         filter_prereqs          => sub { return $_[1] },
+                                        # continue if 'make test' fails?
+        proceed_on_test_failure => sub { return 0 },
+        munge_dist_metafile     => sub { return $_[1] },
     };
     
     my $status = Object::Accessor->new;
@@ -155,7 +160,7 @@ Returns the object on success, or dies on failure.
         if( my $id = $class->_last_id ) {
             # make it a singleton.
             warn loc(q[%1 currently only supports one %2 object per ] .
-                     q[running program], 'CPANPLUS', $class);
+                     qq[running program\n], 'CPANPLUS', $class);
 
             return $class->_retrieve_id( $id );
         }
@@ -316,6 +321,19 @@ about to be sent out by Test::Reporter. Should return a boolean
 indicating true to edit the test report in an editor and false 
 to skip it.
 
+=item proceed_on_test_failure
+
+Is called when 'make test' or 'Build test' fails. Should return
+a boolean indicating whether the install should continue even if
+the test failed.
+
+=item munge_dist_metafile
+
+Is called when the C<CPANPLUS::Dist::*> metafile is created, like
+C<control> for C<CPANPLUS::Dist::Deb>, giving the user a chance to
+programatically alter it. Should return the (munged) text to be
+written to the metafile.
+
 =back
 
 =cut