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 { push @scripts, $File::Find::name if -f and -x }, "blib");

    10 

    11 plan tests => scalar @scripts;

    12 

    13 foreach (@scripts) {

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

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

    16 }