Commit | Line | Data |
---|---|---|
360aca43 | 1 | BEGIN { |
9c6ed6d7 HS |
2 | use File::Basename; |
3 | my $THISDIR = dirname $0; | |
4 | unshift @INC, $THISDIR; | |
360aca43 GS |
5 | require "testp2pt.pl"; |
6 | import TestPodIncPlainText; | |
7 | } | |
8 | ||
9 | my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash | |
10 | my $passed = testpodplaintext \%options, $0; | |
11 | exit( ($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 | ||
26 | This is the text of the included file named "included.t". | |
27 | It 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 | ##------------------------------------------------------------ |