Perl Filter and Perl API

[idzebra-moved-to-github.git] / perl / demo / filter_test.pl

diff --git a/perl/demo/filter_test.pl b/perl/demo/filter_test.pl
new file mode 100755 (executable)
index 0000000..8a6a2e9
--- /dev/null
+++ b/perl/demo/filter_test.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+BEGIN {
+    push (@INC,'../blib/lib','../blib/arch','../blib/lib');
+}
+
+use pod;
+
+$res =pod->test($ARGV[0],
+         (tabPath=>'../blib/lib:../blib/arch:../blib/lib:.:../../tab:../../../yaz/tab'));