view release on metacpan or  search on metacpan

patch/gen.pl  view on Meta::CPAN

use strict;
use warnings;
use Data::Dumper qw( Dumper );
use Path::Tiny qw( path );

my $patch_filename = shift @ARGV;
die "need filename" unless defined $patch_filename;

my($pl_filename) = $patch_filename =~ /^(.*)\.diff$/;
die "unable to determine pl name" unless defined $pl_filename;
$pl_filename .= '.pl';

my @lines = path($patch_filename)->lines;