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 34     34   262 use strict;
  34         81  
  34         1170  
4 34     34   219 use warnings;
  34         75  
  34         1623  
5              
6             our $VERSION = '0.38';
7              
8 34     34   20502 use List::AllUtils qw( uniq );
  34         353769  
  34         2929  
9              
10 34     34   294 use base 'Exporter';
  34         116  
  34         6379  
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;