1 2 3 4 5 6 7
#!/usr/bin/perl -Tw use lib qw(t/lib); use Test::More tests => 1; ok( grep( /examples/, @INC ) );