Storing the length of all the overloading names saves a strlen() in a
[p5sagit/p5-mst-13.2.git] / t / pod / included.t
CommitLineData
360aca43 1BEGIN {
9c6ed6d7 2 use File::Basename;
3 my $THISDIR = dirname $0;
4 unshift @INC, $THISDIR;
360aca43 5 require "testp2pt.pl";
6 import TestPodIncPlainText;
7}
8
9my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
10my $passed = testpodplaintext \%options, $0;
11exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
12
13
14__END__
15
16
17##------------------------------------------------------------
18# This file is =included by "include.t"
19#
20# This text should NOT be in the resultant pod document
21# because we havent seen an =xxx pod directive in this file!
22##------------------------------------------------------------
23
24=pod
25
26This is the text of the included file named "included.t".
27It should appear in the final pod document from pod2xxx
28
29=cut
30
31##------------------------------------------------------------
32# This text should NOT be in the resultant pod document
33# because it is *after* an =cut an no other pod directives
34# proceed it!
35##------------------------------------------------------------