Skip to content

Instantly share code, notes, and snippets.

@dagolden
Created April 1, 2015 14:44
Show Gist options
  • Save dagolden/a89d6ea5932c5e6cd5a5 to your computer and use it in GitHub Desktop.
Save dagolden/a89d6ea5932c5e6cd5a5 to your computer and use it in GitHub Desktop.
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