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=pod

1N/A

1N/AThis is a test

1N/A

1N/A=for theloveofpete

1N/AYou shouldn't see this

1N/Aor this

1N/Aor this

1N/A

1N/A=for text

1N/Apod2text should see this

1N/Aand this

1N/Aand this

1N/A

1N/Aand everything should see this!

1N/A

1N/A=begin text

1N/A

1N/ASimilarly, this line ...

1N/A

1N/Aand this one ...

1N/A

1N/Aas well this one,

1N/A

1N/Ashould all be in pod2text output

1N/A

1N/A=end text

1N/A

1N/ATweedley-deedley-dee, Im as happy as can be!

1N/ATweedley-deedley-dum, cuz youre my honey sugar plum!

1N/A

1N/A=begin atthebeginning

1N/A

1N/ABut I expect to see neither hide ...

1N/A

1N/Anor tail ...

1N/A

1N/Aof this text

1N/A

1N/A=end atthebeginning

1N/A

1N/AThe rest of this should show up in everything.

1N/A