File Coverage

blib/lib/App/merge_cpanfile.pm

Criterion	Covered	Total	%
statement	14	27	51.8
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod	0	3	0.0
total	19	38	50.0

package App::merge_cpanfile;
use 5.008001;
use strict;
use warnings;

use Module::CPANfile;
use CPAN::Meta::Prereqs;

our $VERSION = "0.01";

sub run {
  my ($self, @argv) = @_;
  my ($dest, $src) = @argv;

  my $dest_cpanfile = Module::CPANfile->load($dest);
  my $src_cpanfile = Module::CPANfile->load($src);

  my $merged_cpanfile = $self->merge_cpanfiles(
    $src_cpanfile,
    $dest_cpanfile,
    'runtime',
    'requires',
  );

  print $merged_cpanfile->to_string;
}

sub merge_cpanfiles {
  my ($self, $src, $dest, $phase, $type) = @_;

  my $merged_prereqs = $dest->prereqs->with_merged_prereqs(
      $self->extract_prereqs_for($src->prereqs, $phase, $type)
  );

  return Module::CPANfile->from_prereqs($merged_prereqs->as_string_hash);
}

sub extract_prereqs_for {
    my ($self, $prereqs, $phase, $type) = @_;
    my $reqs = $prereqs->requirements_for($phase, $type);
    my $new_prereqs = CPAN::Meta::Prereqs->new({
        $phase => { $type => $reqs->as_string_hash }
    });
    return $new_prereqs;
}

1;
__END__