File Coverage

blib/lib/Markdent/Regexes.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Markdent::Regexes;
2              
3 35     35   281 use strict;
  35         79  
  35         1157  
4 35     35   191 use warnings;
  35         78  
  35         1699  
5              
6             our $VERSION = '0.39';
7              
8 35     35   20943 use List::AllUtils qw( uniq );
  35         360643  
  35         3093  
9              
10 35     35   324 use base 'Exporter';
  35         86  
  35         6262  
11              
12             our %EXPORT_TAGS = (
13             block => [
14             qw(
15             $HorizontalWS
16             $EmptyLine
17             $EmptyLines
18             $BlockStart
19             $BlockEnd
20             ),
21             ],
22             span => [],
23             other => [qw( $HTMLComment )],
24             );
25              
26             our @EXPORT_OK = uniq( map { @{$_} } values %EXPORT_TAGS );
27              
28             ## no critic (Variables::ProhibitPackageVars)
29             our $HorizontalWS = qr/(?: \p{SpaceSeparator} | \t )/x;
30             our $EmptyLine = qr/(?: ^ $HorizontalWS* \n ) /xm;
31             our $EmptyLines = qr/ (?: $EmptyLine )+ /xm;
32              
33             our $BlockStart = qr/(?: \A | $EmptyLines )/xm;
34             our $BlockEnd = qr/(?=(?: $EmptyLines | \z ) )/xm;
35              
36             our $HTMLComment = qr{<!--(.+?)-->}s;
37             ## use critic
38              
39             1;