Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • #!/usr/local/bin/perl5.6.1

    use warnings;
    use strict;

    my($MODNAME) = @ARGV;

    mkdir($MODNAME);
    chdir($MODNAME);
    mkdir("t");
    mkdir("lib");
    mkdir("lib/$MODNAME");
    my $fh;
    foreach my $file (qw(README MANIFEST MANIFEST.SKIP Makefile.PL Changes))
    {
        open($fh, ">$file");
    }
    open($fh, ">lib/$MODNAME.pm");
    open($fh, ">t/00basic.t");

    open($fh, ">Makefile.PL") || die "Can't open Makefile.PL: $!";
    print $fh <<"EOF";
    use ExtUtils::MakeMaker;
    WriteMakefile(
            'N
    --
    J. David works really hard, has a passion for writing good software, and knows many of the world's best Perl programmers
    • Matt, can't tell you how helpful you've been to me in the past. Hope this helps you a little, or at least spurs some further thought. :) Obviously I'll be immediately updating my own personal copy of this not to say matt@sergeant.org for AUTHOR.

      Being the freak that I am, I'll also probably add strict and warnings to the test script, and add the package $MODNAME; and 1; statements into $MODNAME.pm.

      --
      J. David works really hard, has a passion for writing good software, and knows many of the world's best Perl programmers