Dump a cpanfile into targets for Pinto

cpanfile-dumper

#!/usr/bin/env perl

# USAGE: cpanfile-dumper path/to/cpanfile | pinto -r path/to/repo pull

use strict;
use warnings;
use Module::CPANfile;

my $file = shift or die 'Must specify a cpanfile';
my $cpanfile = Module::CPANfile->load($file);
my @types = qw(requires recommends suggests);
my @phases = qw(configure build test runtime develop);
my $prereqs = $cpanfile->prereqs->merged_requirements( \@phases, \@types )->as_string_hash;

for my $module (sort keys %{ $prereqs }) {
	my $version_spec = $prereqs->{$module};
	$version_spec =~ s/\s//g; # Remove whitespace
	$version_spec = "~$version_spec" unless $version_spec =~ m/[^v.\d_]/;
	print $module . $version_spec . "\n";
}