+ block quotes

lib/Text/Dokuwiki.pm

@@ -76,6 +76,12 @@ sub parse {
         push @{ $buf }, [li => {}, 0 => $2];
         next;
       }
+      # quotes
+      when (m/^\s?(>)+\s*(.+)/o) {
+        my $level = $1 =~ tr/>/>/;
+        push @{ $tree }, [blockquote => {level => $level}, 0 => $2];
+        next;
+      }
       # table
       when (m/^\s?[\|\^]/o) {
         $mode = 'table';