File Coverage

blib/lib/Wasm/Wasmtime/Table.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch			n/a
condition			n/a
subroutine	10	11	90.9
pod	0	1	0.0
total	39	43	90.7

package Wasm::Wasmtime::Table;

use strict;
use warnings;
use 5.008004;
use base qw( Wasm::Wasmtime::Extern );
use Ref::Util qw( is_ref );
use Wasm::Wasmtime::FFI;
use Wasm::Wasmtime::Store;
use Wasm::Wasmtime::TableType;
use constant is_table => 1;
use constant kind => 'table';

# ABSTRACT: Wasmtime table class
our $VERSION = '0.22'; # VERSION


$ffi_prefix = 'wasm_table_';
$ffi->load_custom_type('::PtrObject' => 'wasm_table_t' => __PACKAGE__);

sub new
{
  # TODO: add wasm_table_new for standalone support
  # TODO: add wasm_table_set
  # TODO: add wasm_table_get
  # TODO: add wasm_table_grow
  my($class, $ptr, $owner) = @_;
  bless {
    ptr => $ptr,
    owner => $owner,
  }, $class;
}


$ffi->attach( type => ['wasm_table_t'] => 'wasm_tabletype_t' => sub {
  my($xsub, $self) = @_;
  my $type = $xsub->($self);
  $type->{owner} = $self->{owner} || $self;
  $type;
});


$ffi->attach( size => ['wasm_table_t'] => 'uint32' );

__PACKAGE__->_cast(2);
_generate_destroy();

1;

__END__