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 | |
39e8cf77 |
8 | # rebuild the fatpacked lib/Tak/STDIONode.pm |
51c8325b |
9 | system("maint/mk-fat"); |
10 | |
39e8cf77 |
11 | # rip the example Takfile out of the synopsis so I can play with it |
12 | # more easily |
13 | my $tak_pm = io('lib/Tak.pm')->all; |
14 | |
15 | my ($takfile) = $tak_pm =~ /( package Tak::MyScript.*? 1;\n)/s; |
16 | |
17 | $takfile =~ s/^ //mg; |
18 | |
19 | io('Takfile')->print($takfile); |
20 | |
51c8325b |
21 | 1; |