File Coverage

blib/lib/Wasm/Wasmtime/ImportType.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	33	33	100.0

package Wasm::Wasmtime::ImportType;

use strict;
use warnings;
use 5.008004;
use Carp ();
use Ref::Util qw( is_blessed_ref );
use Wasm::Wasmtime::FFI;
use Wasm::Wasmtime::ExternType;

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


$ffi_prefix = 'wasm_importtype_';
$ffi->load_custom_type('::PtrObject' => 'wasm_importtype_t' => __PACKAGE__);


$ffi->attach( new => ['wasm_byte_vec_t*', 'wasm_byte_vec_t*', 'opaque'] => 'wasm_importtype_t' => sub {
  my $xsub = shift;
  my $class = shift;
  if(defined $_[2] && is_blessed_ref $_[2])
  {
    my $externtype = $_[2];
    # not sure this is actually useful?
    if(is_blessed_ref($externtype) && $externtype->isa('Wasm::Wasmtime::ExternType'))
    {
      my $module = Wasm::Wasmtime::ByteVec->new(shift);
      my $name = Wasm::Wasmtime::ByteVec->new(shift);
      my $self = $xsub->($module, $name, $externtype->{ptr});
      $module->delete;
      $name->delete;
      return $self;
    }
    else
    {
      Carp::croak("Not an externtype");
    }
  }
  else
  {
    my($ptr,$owner) = @_;
    return bless {
      ptr   => $ptr,
      owner => $owner,
    }, $class;
  }
});


$ffi->attach( name => ['wasm_importtype_t'] => 'wasm_byte_vec_t*' => sub {
  my($xsub, $self) = @_;
  my $name = $xsub->($self);
  $name->get;
});


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


$ffi->attach( module => ['wasm_importtype_t'] => 'wasm_byte_vec_t*' => sub {
  my($xsub, $self) = @_;
  my $name = $xsub->($self);
  $name->get;
});


sub to_string
{
  my($self) = @_;
  my $kind   = $self->type->kind;
  $kind =~ s/type$//;
  # TODO: escape strings ?
  sprintf '(%s (import "%s" "%s") %s)', $kind, $self->module, $self->name, $self->type->to_string;
}

_generate_destroy();
_generate_vec_class();

1;

__END__