line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
3
|
|
|
3
|
|
178298
|
use strict; use warnings; |
|
3
|
|
|
3
|
|
22
|
|
|
3
|
|
|
|
|
86
|
|
|
3
|
|
|
|
|
13
|
|
|
3
|
|
|
|
|
6
|
|
|
3
|
|
|
|
|
110
|
|
2
|
|
|
|
|
|
|
package JSONY; |
3
|
|
|
|
|
|
|
|
4
|
3
|
|
|
3
|
|
1275
|
use version; |
|
3
|
|
|
|
|
5603
|
|
|
3
|
|
|
|
|
15
|
|
5
|
|
|
|
|
|
|
our $VERSION = '0.1.19'; $VERSION = version->declare("v$VERSION"); |
6
|
|
|
|
|
|
|
|
7
|
3
|
|
|
3
|
|
1692
|
use Pegex::Parser; |
|
3
|
|
|
|
|
37107
|
|
|
3
|
|
|
|
|
91
|
|
8
|
3
|
|
|
3
|
|
1348
|
use JSONY::Grammar; |
|
3
|
|
|
|
|
7
|
|
|
3
|
|
|
|
|
22
|
|
9
|
3
|
|
|
3
|
|
1362
|
use JSONY::Receiver; |
|
3
|
|
|
|
|
8
|
|
|
3
|
|
|
|
|
300
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
sub new { |
12
|
2
|
|
|
2
|
0
|
259
|
bless {}, $_[0]; |
13
|
|
|
|
|
|
|
} |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
sub load { |
16
|
2
|
|
|
2
|
0
|
30
|
Pegex::Parser->new( |
17
|
|
|
|
|
|
|
grammar => JSONY::Grammar->new, |
18
|
|
|
|
|
|
|
receiver => JSONY::Receiver->new, |
19
|
|
|
|
|
|
|
# debug => 1, |
20
|
|
|
|
|
|
|
)->parse($_[1]); |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
1; |