view release on metacpan or  search on metacpan

xt/eol.t  view on Meta::CPAN

#!/usr/bin/perl

use Test::More;
use Test::EOL;

open my $fh, 'MANIFEST' or die $!;
while (<$fh>) {
    chomp;
    s/\t.*//s;
    open my $fh2, $_ or next;
    my $line = <$fh2>;
    close $fh2;
    next unless /\.(c|cc|cpp|md|pl|pm|psgi|sh|t|txt)$/i or $line =~ m{^#!.*\bperl};
    eol_unix_ok $_, "No incorrect line endings in '$_'", { trailing_whitespace => 1, all_reasons => 1 };
};

done_testing();