File Coverage

blib/lib/Wasm/Wasmtime/Wat2Wasm.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	19	100.0

package Wasm::Wasmtime::Wat2Wasm;

use strict;
use warnings;
use 5.008004;
use Wasm::Wasmtime::FFI;
use base qw( Exporter );

# ABSTRACT: Convert WebAssembly Text to Wasm
our $VERSION = '0.22'; # VERSION


our @EXPORT = qw( wat2wasm );

$ffi_prefix = 'wasmtime_';


$ffi->attach( wat2wasm => ['wasm_byte_vec_t*','wasm_byte_vec_t*'] => 'wasmtime_error_t' => sub {
  my $xsub = shift;
  my $wat = Wasm::Wasmtime::ByteVec->new($_[0]);
  my $ret = Wasm::Wasmtime::ByteVec->new;
  my $error = $xsub->($wat, $ret);
  if($error)
  {
    Carp::croak($error->message . "\nwat2wasm error");
  }
  else
  {
    my $wasm = $ret->get;
    $ret->delete;
    return $wasm;
  }
});

1;

__END__