1*eac174f2Safresh1use strict; 2*eac174f2Safresh1use warnings; 3*eac174f2Safresh1 491f110e0Safresh1BEGIN { 591f110e0Safresh1 use File::Basename; 691f110e0Safresh1 my $THISDIR = dirname $0; 791f110e0Safresh1 unshift @INC, $THISDIR; 891f110e0Safresh1 require "testp2pt.pl"; 9*eac174f2Safresh1 TestPodIncPlainText->import; 1091f110e0Safresh1} 1191f110e0Safresh1 1291f110e0Safresh1my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash 1391f110e0Safresh1my $passed = testpodplaintext \%options, $0; 1491f110e0Safresh1exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; 1591f110e0Safresh1 1691f110e0Safresh1 1791f110e0Safresh1__END__ 1891f110e0Safresh1 1991f110e0Safresh1=include pod2usage.PL 2091f110e0Safresh1 2191f110e0Safresh1 22