line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Perl::APIReference::V5_016_002; |
2
|
1
|
|
|
1
|
|
6
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
54
|
|
3
|
1
|
|
|
1
|
|
7
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
46
|
|
4
|
1
|
|
|
1
|
|
7
|
use parent 'Perl::APIReference::V5_016_000'; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
9
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
sub new { |
7
|
2
|
|
|
2
|
1
|
3
|
my $class = shift; |
8
|
2
|
|
|
|
|
12
|
my $obj = $class->SUPER::new(@_); |
9
|
|
|
|
|
|
|
|
10
|
2
|
|
|
|
|
24
|
$obj->{perl_version} = '5.016002'; |
11
|
2
|
|
|
|
|
5
|
bless $obj => $class; |
12
|
|
|
|
|
|
|
# Override the only change since 5.16.0 |
13
|
2
|
|
|
|
|
9
|
$obj->{'index'}{'mg_get'} = {'text' => 'Do magic before a value is retrieved from the SV. See C. |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
int mg_get(SV* sv)','name' => 'mg_get'}; |
16
|
2
|
|
|
|
|
771
|
return $obj; |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |