1 use 5.010;

     2 use strict;

     3 use warnings;

     4 use Test::More;

     5 

     6 use File::Find;

     7 

     8 my @scripts;

     9 find(sub { /^\./ and return; 

    10     push @scripts, $File::Find::name if -f and (-x or /\.pm$/)}, "blib");

    11 

    12 plan tests => scalar @scripts;

    13 

    14 foreach (@scripts) {

    15 	my $e = `perl -Mblib -c $_ 2>&1`;

    16 	ok(!$?, "syntax $_ ok") or diag $e;

    17 }