File Coverage

blib/lib/FFI/C/Array.pm

Criterion	Covered	Total	%
statement	32	36	88.8
branch	5	6	83.3
condition	7	9	77.7
subroutine	12	15	80.0
pod	3	3	100.0
total	59	69	85.5

package FFI::C::Array;

use strict;
use warnings;
use FFI::C::FFI ();
use overload
  '@{}' => \&tie,
  bool => sub { 1 },
  fallback => 1;

# ABSTRACT: Array instance for FFI
our $VERSION = '0.12'; # VERSION


sub get
{
  my($self, $index) = @_;
  Carp::croak("Negative array index") if $index < 0;
  Carp::croak("OOB array index") if $self->{count} && $index >= $self->{count};
  my $member = $self->{def}->{members}->{member};
  my $ptr = $self->{ptr} + $member->size * $index;
  $member->create($ptr,$self->{owner} || $self);
}

sub count { shift->{count} }

sub tie
{
  my @a;
  CORE::tie @a, 'FFI::C::Array', shift;
  \@a;
}

sub DESTROY
{
  my($self) = @_;
  if($self->{ptr} && !$self->{owner})
  {
    FFI::C::FFI::free(delete $self->{ptr});
  }
}

sub TIEARRAY
{
  my($class, $array) = @_;
  $array;
}

sub FETCH
{
  my($self, $index) = @_;
  $self->get($index);
}

sub STORE
{
  Carp::croak("Cannot set");
}

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

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

sub CLEAR
{
  Carp::croak("Cannot clear");
}

1;

__END__