line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Perl6::PVIP::Node; |
2
|
28
|
|
|
28
|
|
155
|
use strict; |
|
28
|
|
|
|
|
435
|
|
|
28
|
|
|
|
|
1125
|
|
3
|
28
|
|
|
28
|
|
862
|
use warnings; |
|
28
|
|
|
|
|
237
|
|
|
28
|
|
|
|
|
5119
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
# most of methods are written in xs. |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
sub perl { |
8
|
0
|
|
|
0
|
0
|
|
my $self = shift; |
9
|
|
|
|
|
|
|
+{ |
10
|
|
|
|
|
|
|
type => $self->type, |
11
|
|
|
|
|
|
|
line_number => $self->line_number, |
12
|
0
|
|
|
|
|
|
value => do { |
13
|
0
|
0
|
|
|
|
|
if ($self->category == Perl6::PVIP::PVIP_CATEGORY_CHILDREN()) { |
14
|
0
|
|
|
|
|
|
[map { $_->perl } @{$self->value}]; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
} else { |
16
|
0
|
|
|
|
|
|
$self->value; |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
} |
19
|
|
|
|
|
|
|
}; |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
__END__ |