t/pod/lref.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 Try out I<LOTS> of different ways of specifying references:
  20
  21 Reference the L<manpage/section>
  22
  23 Reference the L<manpage / section>
  24
  25 Reference the L<manpage/ section>
  26
  27 Reference the L<manpage /section>
  28
  29 Reference the L<"manpage/section">
  30
  31 Reference the L<"manpage"/section>
  32
  33 Reference the L<manpage/"section">
  34
  35 Reference the L<manpage/
  36 section>
  37
  38 Reference the L<manpage
  39 /section>
  40
  41 Now try it using the new "|" stuff ...
  42
  43 Reference the L<thistext|manpage/section>
  44
  45 Reference the L<thistext | manpage / section>
  46
  47 Reference the L<thistext| manpage/ section>
  48
  49 Reference the L<thistext |manpage /section>
  50
  51 Reference the L<thistext|
  52 "manpage/section">
  53
  54 Reference the L<thistext
  55 |"manpage"/section>
  56
  57 Reference the L<thistext|manpage/"section">
  58
  59 Reference the L<thistext|
  60 manpage/
  61 section>
  62
  63 Reference the L<thistext
  64 |manpage
  65 /section>
  66