1 use v5.10;

     2 use strict;

     3 use warnings;

     4 

     5 use Test::More;

     6 use File::Find;

     7 

     8 plan skip_all => "no blib directories in \@INC"

     9     if not /blib/ ~~ @INC;

    10 

    11 find(sub{

    12     -f -x or return;

    13     system("perl -Mblib -c $_ &>/dev/null");

    14     is($? => 0, "syntax $File::Find::name");

    15 }, "blib/");

    16 

    17 done_testing;