File Coverage

blib/lib/Wasm/Wasmtime/Extern.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch			n/a
condition			n/a
subroutine	9	10	90.0
pod	1	1	100.0
total	38	40	95.0

package Wasm::Wasmtime::Extern;

use strict;
use warnings;
use 5.008004;
use Wasm::Wasmtime::FFI;

require Wasm::Wasmtime::Func;
require Wasm::Wasmtime::Global;
require Wasm::Wasmtime::Table;
require Wasm::Wasmtime::Memory;

# ABSTRACT: Wasmtime extern class
our $VERSION = '0.23'; # VERSION


$ffi_prefix = 'wasm_extern_';

$ffi->attach( [ kind => '_kind' ] => ['opaque'] => 'uint8' );

my @cast;

sub _cast
{
  my(undef, $index) = @_;
  my $caller = caller;
  my($name) = map { lc $_ } $caller =~ /::([a-z]+)$/i;
  $cast[$index] = $ffi->function( "wasm_extern_as_$name" => ['opaque'] => "wasm_${name}_t" )->sub_ref;
}

$ffi->custom_type('wasm_extern_t' => {
  native_type => 'opaque',
  native_to_perl => sub {
    my $extern = shift;
    Carp::croak("extern error") unless defined $extern;
    my $kind = _kind($extern);
    $cast[$kind]->($extern);
  },
});

$ffi->attach_cast('new', 'opaque', 'wasm_extern_t',  sub {
  my($xsub, undef, $ptr, $owner) = @_;
  my $self = $xsub->($ptr);
  $self->{owner} = $owner;
  $self;
});

use constant is_func   => 0;
use constant is_global => 0;
use constant is_table  => 0;
use constant is_memory => 0;

sub kind { die "internal error" };

_generate_vec_class();

1;

__END__