use strict;
use warnings;
use Text::Markdown 'markdown';
use Test::More tests => 1;
my $txt = markdown(<<'END_MARKDOWN', { tab_width => 2 });
This is a para.
This is code.
---
This is code.
This is a para.
END_MARKDOWN
unlike($txt, qr{<hr}, "no HR elements when the hr is in a code block");