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.
  • We have a test in the test suite at Dev/perl.t that runs perl -c and tests POD on everything.

    #!/usr/bin/perl -w

    use warnings;
    use strict;

    use Test::More;
    use Test::Pod;
    use File::Next;
    use App::Ack;

    use FindBin;

    my $startpath = $ENV{TTROOT} || '.';

    my $iter =
        File::Next::files( {
            descend_filter  => sub { $_ ne '.svn' && $_ ne 'tmp' },
        }, $startpath );

    my @files;

    while ( my $file = $iter->() ) {
        my @types = App::Ack::filetypes(

    --

    --
    xoa