t/pod/for.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 =pod
  18
  19 This is a test
  20
  21 =for theloveofpete
  22 You shouldn't see this
  23 or this
  24 or this
  25
  26 =for text
  27 pod2text should see this
  28 and this
  29 and this
  30
  31 and everything should see this!
  32
  33 =begin text
  34
  35 Similarly, this line ...
  36
  37 and this one ...
  38
  39 as well this one,
  40
  41 should all be in pod2text output
  42
  43 =end text
  44
  45 Tweedley-deedley-dee, Im as happy as can be!
  46 Tweedley-deedley-dum, cuz youre my honey sugar plum!
  47
  48 =begin atthebeginning
  49
  50 But I expect to see neither hide ...
  51
  52 nor tail ...
  53
  54 of this text
  55
  56 =end atthebeginning
  57
  58 The rest of this should show up in everything.
  59