view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    - inc
    - t
    - xt
requires:
  Archive::Extract: 0.32
  Archive::Tar: 1.52
  CPAN::Mini: 0.576
  File::Find::Rule: 0.27
  File::Spec: 0.80
  File::Temp: 0.21
  File::chmod: 0.31
  File::pushd: 1.00
  Locale::Maketext: 1.19
  Object::Tiny: 1.06
  Params::Util: 1.00
  perl: 5.8.0
resources:
  ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/CPAN-Mini-Visit
  license: http://dev.perl.org/licenses/
  repository: http://svn.ali.as/cpan/trunk/CPAN-Mini-Visit
version: 1.15

lib/CPAN/Mini/Visit.pm  view on Meta::CPAN

=cut

use 5.008;
use strict;
use warnings;
use Carp                   ();
use File::Spec        0.80 ();
use File::Temp        0.21 ();
use File::pushd       1.00 ();
use File::chmod       0.31 ();
use File::Find::Rule  0.27 ();
use Archive::Extract  0.32 ();
use CPAN::Mini       0.576 ();
use Params::Util      1.00 ();

our $VERSION = '1.15';
# $VERSION = eval $VERSION;

use Object::Tiny 1.06 qw{
	minicpan

lib/CPAN/Mini/Visit.pm  view on Meta::CPAN

			next;
		}

		# If using bin tools, do an additional check for
		# damaged tarballs with non-executable directories (on unix)
		my $extracted = $extract->extract_path;
		unless ( -r $extracted and -x $extracted ) {
			# Handle special case where we have screwed up
			# permissions on the extract directory.
			# Just assume we have permissions for that.
			File::chmod::chmod( 0755, $extracted );
		}

		# Change into the directory
		my $pushd2 = File::pushd::pushd( $extracted );

		# Invoke the callback
		$self->callback->( {
			counter => ++$counter,
			archive => $archive,
			dist    => $dist,