1*0Sstevel@tonic-gateBEGIN { 2*0Sstevel@tonic-gate use File::Basename; 3*0Sstevel@tonic-gate my $THISDIR = dirname $0; 4*0Sstevel@tonic-gate unshift @INC, $THISDIR; 5*0Sstevel@tonic-gate require "testp2pt.pl"; 6*0Sstevel@tonic-gate import TestPodIncPlainText; 7*0Sstevel@tonic-gate} 8*0Sstevel@tonic-gate 9*0Sstevel@tonic-gatemy %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash 10*0Sstevel@tonic-gatemy $passed = testpodplaintext \%options, $0; 11*0Sstevel@tonic-gateexit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; 12*0Sstevel@tonic-gate 13*0Sstevel@tonic-gate 14*0Sstevel@tonic-gate__END__ 15*0Sstevel@tonic-gate 16*0Sstevel@tonic-gate 17*0Sstevel@tonic-gate=pod 18*0Sstevel@tonic-gate 19*0Sstevel@tonic-gateThe statement: C<This is dog kind's I<finest> hour!> is a parody of a 20*0Sstevel@tonic-gatequotation from Winston Churchill. 21*0Sstevel@tonic-gate 22*0Sstevel@tonic-gate=cut 23*0Sstevel@tonic-gate 24