File Coverage

blib/lib/Wasm/Wasmtime/WasiConfig.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Wasm::Wasmtime::WasiConfig;

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

# ABSTRACT: WASI Configuration
our $VERSION = '0.21'; # VERSION


$ffi_prefix = 'wasi_config_';
$ffi->load_custom_type('::PtrObject' => 'wasi_config_t' => __PACKAGE__);


sub _wrapper
{
  my $xsub = shift;
  my $self = shift;
  $xsub->($self, @_);
  $self;
}

$ffi->attach( new             => []                                  => 'wasi_config_t' );
$ffi->attach( set_stdin_file  => ['wasi_config_t','string']          => 'void', \&_wrapper );
$ffi->attach( set_stdout_file => ['wasi_config_t','string']          => 'void', \&_wrapper );
$ffi->attach( set_stderr_file => ['wasi_config_t','string']          => 'void', \&_wrapper );
$ffi->attach( preopen_dir     => ['wasi_config_t','string','string'] => 'void', \&_wrapper );

foreach my $name (qw( argv env stdin stdout stderr ))
{
  $ffi->attach( "inherit_$name" => ['wasi_config_t'], \&_wrapper );
}

$ffi->attach( set_argv => ['wasi_config_t', 'int', 'string[]'] => sub {
  my($xsub, $self, @argv) = @_;
  $xsub->($self, scalar(@argv), \@argv);
  $self;
});

$ffi->attach( set_env => ['wasi_config_t','int','string[]','string[]'] => sub {
  my($xsub, $self, %env) = @_;
  my @names;
  my @values;
  foreach my $name (keys %env)
  {
    push @names,  $name;
    push @values, $env{$name};
  }
  $xsub->($self, scalar(@names), \@names, \@values);
  $self;
});

_generate_destroy();

1;

__END__