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-gateThis is a test 20*0Sstevel@tonic-gate 21*0Sstevel@tonic-gate=for theloveofpete 22*0Sstevel@tonic-gateYou shouldn't see this 23*0Sstevel@tonic-gateor this 24*0Sstevel@tonic-gateor this 25*0Sstevel@tonic-gate 26*0Sstevel@tonic-gate=for text 27*0Sstevel@tonic-gatepod2text should see this 28*0Sstevel@tonic-gateand this 29*0Sstevel@tonic-gateand this 30*0Sstevel@tonic-gate 31*0Sstevel@tonic-gateand everything should see this! 32*0Sstevel@tonic-gate 33*0Sstevel@tonic-gate=begin text 34*0Sstevel@tonic-gate 35*0Sstevel@tonic-gateSimilarly, this line ... 36*0Sstevel@tonic-gate 37*0Sstevel@tonic-gateand this one ... 38*0Sstevel@tonic-gate 39*0Sstevel@tonic-gateas well this one, 40*0Sstevel@tonic-gate 41*0Sstevel@tonic-gateshould all be in pod2text output 42*0Sstevel@tonic-gate 43*0Sstevel@tonic-gate=end text 44*0Sstevel@tonic-gate 45*0Sstevel@tonic-gateTweedley-deedley-dee, Im as happy as can be! 46*0Sstevel@tonic-gateTweedley-deedley-dum, cuz youre my honey sugar plum! 47*0Sstevel@tonic-gate 48*0Sstevel@tonic-gate=begin atthebeginning 49*0Sstevel@tonic-gate 50*0Sstevel@tonic-gateBut I expect to see neither hide ... 51*0Sstevel@tonic-gate 52*0Sstevel@tonic-gatenor tail ... 53*0Sstevel@tonic-gate 54*0Sstevel@tonic-gateof this text 55*0Sstevel@tonic-gate 56*0Sstevel@tonic-gate=end atthebeginning 57*0Sstevel@tonic-gate 58*0Sstevel@tonic-gateThe rest of this should show up in everything. 59*0Sstevel@tonic-gate 60