Overview
Download
Installation
Docs
Tutorial
Credits

Page Source

Hosted by:
Convolution
 Source of template.plp
Back
  1. <(template.plp)>
  2. Choose: <br>
  3. <:

  5. BEGIN { $title = 'Documentation'; }

  7. print map qq{&#149; <a href="pod.plp?document=$_">$_</a><br>},
  8.     qw/PLP PLP::Functions PLP::Fields PLP::FAQ PLP::HowTo/;

  10. my %commands = (
  11.     head1   => '<h1>%</h1>',
  12.     head2   => '<h2>%</h2>',
  13.     over    => '<ul>',
  14.     back    => '</ul>',
  15.     item    => '<li><b>%</b></li>',
  16. );

  18. my %markup = (
  19.     B            => '<b>%</b>',
  20.     E            => '&%;',
  21.     C            => '<b><tt>%</tt></b>',
  22.     L            => '<i>%</i>',
  23. );

  25. $get{document} ||= 'PLP';

  27. {
  28.     my $dir = (glob 'files/PLP-*/lib')[-1];
  29.     $get{document} =~ s/[^\w:]//g;
  30.     $get{document} =~ s!::!/!g;
  31.     my $file = glob("$dir/$get{document}.p*") or last;
  32.     my $pod = ReadFile $file;
  33.     ($pod) = join '', $pod =~ /^=.*?\n=cut\b/smg;
  34.     $pod =~ s(([A-Z])<{$_} (.*?) >{$_}){
  35.         my $html = $markup{$1} || '%';
  36.         my $t = $2;
  37.         $t =~ s/(\W)/'&#' . ord($1) . ';'/ge;
  38.         $t =~ s/&#9;/'&nbsp;' x 8/ge;
  39.         $t =~ s/&#32;/&nbsp;/g;
  40.         $html =~ s/%/$t/;
  41.         $html;
  42.     }gem for reverse 2..6;
  43.     $pod =~ s(L<([^>]*)>){
  44.         my $t = $1;
  45.         $t =~ /^PLP/ ? qq{<a href="pod.plp?document=$t">$t</a>} : $t;
  46.     }gem;
  47.     $pod =~ s(([A-Z])<([^/][^>]*)>){
  48.         my $html = $markup{$1} || '%';
  49.         my $t = $2;
  50.         $t =~ s/(\W)/'&#' . ord($1) . ';'/ge;
  51.         $t =~ s/&#9;/'&nbsp;' x 8/ge;
  52.         $t =~ s/&#32;/&nbsp;/g;
  53.         $html =~ s/%/$t/;
  54.         $html;
  55.     }gem;
  56.     $pod =~ s(^=(\w+)[ \t]*(.*)){
  57.         my $html = $commands{$1} || '<div>%</div>';
  58.         my $t = $2;
  59.         $t =~ s/^\*//;
  60.         $html =~ s/%/$t/;
  61.         $html;
  62.     }gem;
  63.     $pod =~ s/^$/<p>/gm;
  64.     $pod =~ s(^([ \t].*)){
  65.         my $t = $1;
  66.         $t =~ s/(\W)/'&#' . ord($1) . ';'/ge;
  67.         $t =~ s/&#9;/'&nbsp;' x 8/ge;
  68.         $t =~ s/&#32;/&nbsp;/g;
  69.         '<tt>' . $t . '</tt><br>';
  70.     }gem;
  71.     print AutoURL($pod);
  72. }

  74. :>