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 file tries to demonstrate a simple =include directive

1N/Afor pods. It is used as follows:

1N/A

1N/A =include filename

1N/A

1N/Awhere "filename" is expected to be an absolute pathname, or else

1N/Areside be relative to the directory in which the current processed

1N/Apodfile resides, or be relative to the current directory.

1N/A

1N/ALets try it out with the file "included.t" shall we.

1N/A

1N/A***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***

1N/A

1N/A=include included.t

1N/A

1N/A***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***

1N/A

1N/ASo how did we do???