File Coverage

blib/lib/PPM/Make/CPAN.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package PPM::Make::CPAN;
use strict;
use warnings;
use PPM::Make;
use PPM::Make::Config qw(HAS_PPM);

our $VERSION = '0.9904';

sub new {
  my ($class, %opts) = @_;
  my $self = {cpan_meta => $opts{cpan_meta},
              opts => \%opts};
  bless $self, $class;
}

sub make_ppm_install {
  my $self = shift;
  my %opts = %{$self->{opts}};
  for (qw(cfg)) {
    my $given = 'no-' . $_;
    next unless $opts{$given};
    my $passed = 'no_' . $_;
    $opts{$passed} = delete $opts{$given};
  }
  my %args;
  for (qw(area force nodeps)) {
    $args{$_} = delete $opts{$_};
  }

  my $ppm = PPM::Make->new(%opts, cpan_meta => $self->{cpan_meta});
  $ppm->make_ppm();
  my $ppd = $ppm->{ppd};
  my @args = ('ppm', 'install', $ppd);
  if (HAS_PPM >= 3) {
    for my $bool_arg (qw(force nodeps)) {
      next unless defined $args{$bool_arg};
      push @args, "--$bool_arg";
    }
    for my $str_arg (qw(area)) {
      next unless defined $args{$str_arg};
      push @args, "--$str_arg", $args{$str_arg};
    }
  }
  print "@args\n";
  system(@args);
  return $?;
}

# placeholder for future CPAN.pm
#sub check_prereqs {
#  my ($self, @prereqs) = @_;
#  my $cpan_meta = $self->{cpan_meta};
#  foreach (@prereqs) {
#    my $id = $cpan_meta->instance('CPAN::Module', $_->[0]);
#    warn "********$_->[0]********", $id->as_string, "*********\n";
#  }
#  return @prereqs;
#}

1;

__END__