|
|
@ -252,11 +252,13 @@ sub parse { |
|
|
|
push @tree, [code => $attrs, [pre => {}, $+{block}]]; |
|
|
|
push @tree, [code => $attrs, [pre => {}, $+{block}]]; |
|
|
|
} |
|
|
|
} |
|
|
|
} elsif ($text =~ m/\G$rx->{table}/cgi) { |
|
|
|
} elsif ($text =~ m/\G$rx->{table}/cgi) { |
|
|
|
push @tree, $self->_parse_table($+{table}); |
|
|
|
my $lines = $+{table}; |
|
|
|
|
|
|
|
chomp $lines; |
|
|
|
|
|
|
|
push @tree, $self->_parse_table([ split(/\r?\n/, $lines) ]); |
|
|
|
} elsif ($text =~ m/\G$rx->{list}/cgi) { |
|
|
|
} elsif ($text =~ m/\G$rx->{list}/cgi) { |
|
|
|
my $list = $+{list}; |
|
|
|
my $lines = $+{list}; |
|
|
|
chomp $list; |
|
|
|
chomp $lines; |
|
|
|
push @tree, $self->_parse_list([ split(/\r?\n/, $list) ]); |
|
|
|
push @tree, $self->_parse_list([ split(/\r?\n/, $lines) ]); |
|
|
|
} elsif ($text =~ m/\G$rx->{blockquote}/cgi) { |
|
|
|
} elsif ($text =~ m/\G$rx->{blockquote}/cgi) { |
|
|
|
push @tree, [blockquote => {}, $+{block}]; |
|
|
|
push @tree, [blockquote => {}, $+{block}]; |
|
|
|
} elsif ($text =~ m/\G$rx->{pre}/cgi) { |
|
|
|
} elsif ($text =~ m/\G$rx->{pre}/cgi) { |
|
|
|