1N/ABEGIN {

1N/A use File::Basename;

1N/A my $THISDIR = dirname $0;

1N/A unshift @INC, $THISDIR;

1N/A require "testp2pt.pl";

1N/A import TestPodIncPlainText;

1N/A}

1N/A

1N/Amy %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash

1N/Amy $passed = testpodplaintext \%options, $0;

1N/Aexit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};

1N/A

1N/A

1N/A__END__

1N/A

1N/A

1N/A##------------------------------------------------------------

1N/A# This file is =included by "include.t"

1N/A#

1N/A# This text should NOT be in the resultant pod document

1N/A# because we havent seen an =xxx pod directive in this file!

1N/A##------------------------------------------------------------

1N/A

1N/A=pod

1N/A

1N/AThis is the text of the included file named "included.t".

1N/AIt should appear in the final pod document from pod2xxx

1N/A

1N/A=cut

1N/A

1N/A##------------------------------------------------------------

1N/A# This text should NOT be in the resultant pod document

1N/A# because it is *after* an =cut an no other pod directives

1N/A# proceed it!

1N/A##------------------------------------------------------------