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; |