Changeset 1041 for trunk/PerlDocPlugin/lib/TWiki/Plugins/PerlDocPlugin.pm

Timestamp:

11/28/08 13:33:03 (3 years ago)

Author:

CrawfordCurrie

Message:

Item175: Added Foswiki::Time to published APIs and deprecated the duplicates in Foswiki::Func, cleaned up versioning of published APIs and added VERSION to each. Item295: changed =pod to =begin TML

File:

• trunk/PerlDocPlugin/lib/TWiki/Plugins/PerlDocPlugin.pm (modified) (6 diffs)

trunk/PerlDocPlugin/lib/TWiki/Plugins/PerlDocPlugin.pm

@@ -39 +39 @@
 # variables elsewhere in TWiki!!
 
-=begin TML
+=begin twiki
+
 ---+ Testing TWiki formatting
 | *simple* | *table* |
@@ -54 +55 @@
 Last paragraph of this document block
 
-=end TML
+=end twiki
 
 =cut
@@ -127 +128 @@
     }
 
-    if( $format =~ /(pod|twiki|raw)/ ) {
+    if( $format =~ /(pod|twiki|raw|TML)/ ) {
         $text =~ s/&/&amp\;/go;
         $text =~ s/</&lt\;/go;
@@ -171 +172 @@
                 $mode = "twiki";
             } elsif( $tag =~ /^begin$/i ) {
-                if( $data =~ /^(html|twiki)/i ) {
+                if( $data =~ /^(html|twiki|TML)/i ) {
                     $data =~ s@([\r\n])( +)@"$1" . "\t" x (length($2)/3)@ges;
                     $data =~ s/^(html|twiki)//i;
@@ -184 +185 @@
                 $text .= "---" . "+" x $1 . renderInteriorSequences( " $data" ) . "\n";
             } elsif( $tag =~ /^for$/i ) {
-                if( $data =~ /^(html|twiki)/i ) {
+                if( $data =~ /^(html|twiki|TML)/i ) {
                     $data =~ s@([\r\n])( +)@"$1" . "\t" x (length($2)/3)@ges;
                     $data =~ s/^(html|twiki)\s*//i;
@@ -200 +201 @@
                 $text .= renderInteriorSequences( "$_" ) . "\n\n";
             }
-        } elsif( $mode eq "twiki" ) {
+        } elsif( $mode eq "twiki" || $mode eq 'TML' ) {
             if( $tag =~ /^end$/i ) {
                 $mode = "";