diff --git a/lib/Text/Dokuwiki.pm b/lib/Text/Dokuwiki.pm index 0618078..24f8c20 100644 --- a/lib/Text/Dokuwiki.pm +++ b/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';