File Coverage

blib/lib/Wasm/Memory.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	11	11	100.0
pod	5	6	83.3
total	52	56	92.8

package Wasm::Memory;

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

our @EXPORT_OK = qw( wasm_caller_memory );

# ABSTRACT: Interface to WebAssembly Memory
our $VERSION = '0.23'; # VERSION


sub wasm_caller_memory
{
  my $caller = Wasm::Wasmtime::Caller::wasmtime_caller();
  defined $caller
    ? do {
      my $wm = $caller->export_get('memory');
      defined $wm && $wm->is_memory
        ? __PACKAGE__->new($wm)
        : undef;
    } : undef;
}

sub new
{
  my($class, $memory) = @_;
  bless \$memory, $class;
}


sub address { ${shift()}->data      }
sub size    { ${shift()}->data_size }


sub limits
{
  my $self   = shift;
  my $memory = $$self;
  my $type   = $memory->type;
  ($memory->size, @{ $type->limits });
}


sub grow
{
  my($self, $count) = @_;
  ${$self}->grow($count);
}

1;

__END__