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/ATry out I<LOTS> of different ways of specifying references:
1N/A
1N/AReference the L<manpage/section>
1N/A
1N/AReference the L<manpage / section>
1N/A
1N/AReference the L<manpage/ section>
1N/A
1N/AReference the L<manpage /section>
1N/A
1N/AReference the L<"manpage/section">
1N/A
1N/AReference the L<"manpage"/section>
1N/A
1N/AReference the L<manpage/"section">
1N/A
1N/AReference the L<manpage/
1N/Asection>
1N/A
1N/AReference the L<manpage
1N/A/section>
1N/A
1N/ANow try it using the new "|" stuff ...
1N/A
1N/AReference the L<thistext|manpage/section>
1N/A
1N/AReference the L<thistext | manpage / section>
1N/A
1N/AReference the L<thistext| manpage/ section>
1N/A
1N/AReference the L<thistext |manpage /section>
1N/A
1N/AReference the L<thistext|
1N/A"manpage/section">
1N/A
1N/AReference the L<thistext
1N/A|"manpage"/section>
1N/A
1N/AReference the L<thistext|manpage/"section">
1N/A
1N/AReference the L<thistext|
1N/Amanpage/
1N/Asection>
1N/A
1N/AReference the L<thistext
1N/A|manpage
1N/A/section>
1N/A