1BEGIN { 2 use File::Basename; 3 my $THISDIR = dirname $0; 4 unshift @INC, $THISDIR; 5 require "testp2pt.pl"; 6 import TestPodIncPlainText; 7} 8 9my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash 10my $passed = testpodplaintext \%options, $0; 11exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; 12 13 14__END__ 15 16=include pod2usage.PL 17 18 19