—package
SPVM::Builder::Native::ClassFile;
use
strict;
use
warnings;
sub
pointer {
my
$self
=
shift
;
if
(
@_
) {
$self
->{pointer} =
$_
[0];
return
$self
;
}
else
{
return
$self
->{pointer};
}
}
sub
compiler {
my
$self
=
shift
;
if
(
@_
) {
$self
->{compiler} =
$_
[0];
return
$self
;
}
else
{
return
$self
->{compiler};
}
}
1;
=head1 Name
SPVM::Builder::Native::ClassFile - Class File Native APIs
=head1 Copyright & License
Copyright (c) 2023 Yuki Kimoto
MIT License