t/pod/included.t

   1 BEGIN {
   2    use File::Basename;
   3    my $THISDIR = dirname $0;
   4    unshift @INC, $THISDIR;
   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 ##------------------------------------------------------------