line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package |
2
|
|
|
|
|
|
|
Twitter::Text::Util; # hide from PAUSE |
3
|
4
|
|
|
4
|
|
687551
|
use strict; |
|
4
|
|
|
|
|
30
|
|
|
4
|
|
|
|
|
113
|
|
4
|
4
|
|
|
4
|
|
23
|
use warnings; |
|
4
|
|
|
|
|
8
|
|
|
4
|
|
|
|
|
100
|
|
5
|
4
|
|
|
4
|
|
18
|
use Exporter 'import'; |
|
4
|
|
|
|
|
7
|
|
|
4
|
|
|
|
|
124
|
|
6
|
4
|
|
|
4
|
|
1197
|
use File::Share qw(dist_file); |
|
4
|
|
|
|
|
76694
|
|
|
4
|
|
|
|
|
195
|
|
7
|
4
|
|
|
4
|
|
2073
|
use YAML::PP (); |
|
4
|
|
|
|
|
251231
|
|
|
4
|
|
|
|
|
373
|
|
8
|
|
|
|
|
|
|
our @EXPORT = qw( |
9
|
|
|
|
|
|
|
load_yaml |
10
|
|
|
|
|
|
|
); |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
# internal use only, do not use this module directly. |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
sub load_yaml { |
15
|
7
|
|
|
7
|
0
|
285
|
my $yamlname = shift; |
16
|
|
|
|
|
|
|
|
17
|
7
|
|
|
|
|
53
|
return [ YAML::PP::LoadFile(dist_file('Twitter-Text', "conformance/$yamlname")) ]; |
18
|
|
|
|
|
|
|
} |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
1; |