Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
use 5.006;
use strict;
use warnings;
use File::Path 'make_path';
use File::Basename 'dirname';
use autodie;
my $destination = shift;
make_path( dirname( $destination ) );
open my $fh, ">", $destination;
print {$fh} <DATA>;
__DATA__
package Acme::Provides;
use 5.006;
use strict;
use warnings;
our $VERSION = '0.01';
1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment