ブロック書式を\でエスケープできるようにした。

diff --git a/lib/Wiki/Parser.pm b/lib/Wiki/Parser.pm
index 5f41e88..3e1e08c 100644 (file)
--- a/lib/Wiki/Parser.pm
+++ b/lib/Wiki/Parser.pm
@@ -81,6 +81,13 @@ sub parse {
                        next;
                }
                
+               # ¥Ö¥í¥Ã¥¯½ñ¼°¤Î¥¨¥¹¥±¡¼¥×
+               if($word2 eq "\\\\" || $word1 eq "\\"){
+                       my @obj = $self->parse_line(substr($line, 1));
+                       $self->l_text(\@obj);
+                       next;
+               }
+               
                # ¥Ñ¥é¥°¥é¥Õ¥×¥é¥°¥¤¥ó
                if($line =~ /^{{(.+}})$/){
                        if(!$self->{block}){