line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
3
|
|
|
3
|
|
179852
|
use strict; use warnings; |
|
3
|
|
|
3
|
|
25
|
|
|
3
|
|
|
|
|
85
|
|
|
3
|
|
|
|
|
15
|
|
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
116
|
|
2
|
|
|
|
|
|
|
package JSONY; |
3
|
|
|
|
|
|
|
|
4
|
3
|
|
|
3
|
|
1329
|
use version; |
|
3
|
|
|
|
|
5650
|
|
|
3
|
|
|
|
|
17
|
|
5
|
|
|
|
|
|
|
our $VERSION = '0.1.20'; $VERSION = version->declare("v$VERSION"); |
6
|
|
|
|
|
|
|
|
7
|
3
|
|
|
3
|
|
1842
|
use Pegex::Parser; |
|
3
|
|
|
|
|
37888
|
|
|
3
|
|
|
|
|
92
|
|
8
|
3
|
|
|
3
|
|
1356
|
use JSONY::Grammar; |
|
3
|
|
|
|
|
8
|
|
|
3
|
|
|
|
|
21
|
|
9
|
3
|
|
|
3
|
|
1337
|
use JSONY::Receiver; |
|
3
|
|
|
|
|
8
|
|
|
3
|
|
|
|
|
284
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
sub new { |
12
|
2
|
|
|
2
|
0
|
276
|
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; |