File Coverage

blib/lib/Wasm/Wasmtime/ExternType.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch			n/a
condition			n/a
subroutine	9	11	81.8
pod	2	2	100.0
total	39	43	90.7

package Wasm::Wasmtime::ExternType;

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

require Wasm::Wasmtime::FuncType;
require Wasm::Wasmtime::GlobalType;
require Wasm::Wasmtime::TableType;
require Wasm::Wasmtime::MemoryType;

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


sub kind { die "internal error" };
use constant is_functype   => 0;
use constant is_globaltype => 0;
use constant is_tabletype  => 0;
use constant is_memorytype => 0;

$ffi_prefix = 'wasm_externtype_';

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

my @cast;

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

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


sub to_string
{
  die "internal error";  # pure virtual ish
}

1;

__END__