home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / pod / include.t < prev    next >
Text File  |  1999-10-01  |  838b  |  37 lines
  1. #!./perl
  2. BEGIN {
  3.    chdir 't' if -d 't';
  4.    unshift @INC, './pod', '../lib';
  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 file tries to demonstrate a simple =include directive
  20. for pods. It is used as follows:
  21.  
  22.    =include filename
  23.  
  24. where "filename" is expected to be an absolute pathname, or else
  25. reside be relative to the directory in which the current processed
  26. podfile resides, or be relative to the current directory.
  27.  
  28. Lets try it out with the file "included.t" shall we.
  29.  
  30. ***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***
  31.  
  32. =include included.t
  33.  
  34. ***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***
  35.  
  36. So how did we do???
  37.