line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package SPVM::BlessedObject; |
2
|
|
|
|
|
|
|
|
3
|
278
|
|
|
278
|
|
1847
|
use strict; |
|
278
|
|
|
|
|
516
|
|
|
278
|
|
|
|
|
7723
|
|
4
|
278
|
|
|
278
|
|
1277
|
use warnings; |
|
278
|
|
|
|
|
537
|
|
|
278
|
|
|
|
|
39942
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
sub __api { |
7
|
167403
|
|
|
167403
|
|
219188
|
my $self = shift; |
8
|
167403
|
50
|
|
|
|
283251
|
if (@_) { |
9
|
0
|
|
|
|
|
0
|
$self->{__api} = $_[0]; |
10
|
0
|
|
|
|
|
0
|
return $self; |
11
|
|
|
|
|
|
|
} |
12
|
|
|
|
|
|
|
else { |
13
|
167403
|
|
|
|
|
472571
|
return $self->{__api}; |
14
|
|
|
|
|
|
|
} |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
92
|
50
|
|
92
|
|
51354
|
sub __get_type_name { my $ret; eval { $ret = shift->_xs___get_type_name(@_) }; if ($@) { confess $@ } $ret; } |
|
92
|
|
|
|
|
169
|
|
|
92
|
|
|
|
|
3038
|
|
|
92
|
|
|
|
|
1415
|
|
|
0
|
|
|
|
|
0
|
|
|
92
|
|
|
|
|
529
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
=head1 Name |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
SPVM::BlessedObject - SPVM object |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
=head1 Description |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
The object of the C class holds a SPVM object. |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
=head1 Instance Methods |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=head2 __api |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
my $api = $self->__api; |
34
|
|
|
|
|
|
|
$self->__api($api); |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
Gets and sets a L object. |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=head2 __get_type_name |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
my $type_name = $self->__get_type_name; |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
Gets the SPVM type name of the object. |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
=head1 Well Known Child Classes |
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
=over 2 |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=item * L |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
=item * L |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
=item * L |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
=back |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
=head1 Copyright & License |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
Copyright (c) 2023 Yuki Kimoto |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
MIT License |