[scpubgit/Tak.git] / maint / Makefile.PL.include

BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
use lib 'Distar/lib';
use Distar;
use IO::All;

author 'mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>';

manifest_include bin => qr/[^.].*/;

# rebuild the fatpacked lib/Tak/STDIONode.pm
system("maint/mk-fat");

# rip the example Takfile out of the synopsis so I can play with it
# more easily
my $tak_pm = io('lib/Tak.pm')->all;

my ($takfile) = $tak_pm =~ /(  package Tak::MyScript.*?  1;\n)/s;

$takfile =~ s/^  //mg;

io('Takfile')->print($takfile);

1;
Commit	Line	Data
51c8325b	1	BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
	2	use lib 'Distar/lib';
	3	use Distar;
39e8cf77	4	use IO::All;
51c8325b	5
	6	author 'mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>';
	7
d1cc69ab	8	manifest_include bin => qr/[^.].*/;
d1cc69ab	9
39e8cf77	10	# rebuild the fatpacked lib/Tak/STDIONode.pm
51c8325b	11	system("maint/mk-fat");
51c8325b	12
39e8cf77	13	# rip the example Takfile out of the synopsis so I can play with it
	14	# more easily
	15	my $tak_pm = io('lib/Tak.pm')->all;
	16
	17	my ($takfile) = $tak_pm =~ /( package Tak::MyScript.*? 1;\n)/s;
	18
	19	$takfile =~ s/^ //mg;
	20
	21	io('Takfile')->print($takfile);
	22
51c8325b	23	1;