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##------------------------------------------------------------ 18*0Sstevel@tonic-gate# This file is =included by "include.t" 19*0Sstevel@tonic-gate# 20*0Sstevel@tonic-gate# This text should NOT be in the resultant pod document 21*0Sstevel@tonic-gate# because we havent seen an =xxx pod directive in this file! 22*0Sstevel@tonic-gate##------------------------------------------------------------ 23*0Sstevel@tonic-gate 24*0Sstevel@tonic-gate=pod 25*0Sstevel@tonic-gate 26*0Sstevel@tonic-gateThis is the text of the included file named "included.t". 27*0Sstevel@tonic-gateIt should appear in the final pod document from pod2xxx 28*0Sstevel@tonic-gate 29*0Sstevel@tonic-gate=cut 30*0Sstevel@tonic-gate 31*0Sstevel@tonic-gate##------------------------------------------------------------ 32*0Sstevel@tonic-gate# This text should NOT be in the resultant pod document 33*0Sstevel@tonic-gate# because it is *after* an =cut an no other pod directives 34*0Sstevel@tonic-gate# proceed it! 35*0Sstevel@tonic-gate##------------------------------------------------------------ 36