perl/demo/filter_test.pl

   1 #!/usr/bin/perl
   2
   3 BEGIN {
   4     push (@INC,'../blib/lib','../blib/arch','../blib/lib');
   5 }
   6
   7 use pod;
   8
   9 $res =pod->test($ARGV[0],
  10           (tabPath=>'../blib/lib:../blib/arch:../blib/lib:.:../../tab:../../../yaz/tab'));