maint/Makefile.PL.include

   1 BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
   2 use lib 'Distar/lib';
   3 use Distar;
   4 use IO::All;
   5
   6 author 'mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>';
   7
   8 # rebuild the fatpacked lib/Tak/STDIONode.pm
   9 system("maint/mk-fat");
  10
  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
  21 1;