package Markdent::Regexes;
{
$Markdent::Regexes::VERSION = '0.23';
}
BEGIN {
$Markdent::Regexes::AUTHORITY = 'cpan:DROLSKY';
}
use strict;
use warnings;
use List::AllUtils qw( uniq );
use base 'Exporter';
our %EXPORT_TAGS = (
block => [
qw( $HorizontalWS
$EmptyLine
$EmptyLines
$BlockStart
$BlockEnd
),
],
span => [],
other => [qw( $HTMLComment )],
);
our @EXPORT_OK = uniq( map { @{$_} } values %EXPORT_TAGS );
our $HorizontalWS = qr/(?: \p{SpaceSeparator} | \t )/x;
our $EmptyLine = qr/(?: ^ $HorizontalWS* \n ) /xm;
our $EmptyLines = qr/ (?: $EmptyLine )+ /xm;
our $BlockStart = qr/(?: \A | $EmptyLines )/xm;
our $BlockEnd = qr/(?=(?: $EmptyLines | \z ) )/xm;
our $HTMLComment = qr{<!--(.+?)-->}s;
1;