File Coverage

blib/lib/FFI/C/FFI.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 FFI::C::FFI;

use strict;
use warnings;
use FFI::Platypus 1.24;
use constant ();
use base qw( Exporter );

# ABSTRACT: Private module for FFI::C
our $VERSION = '0.12'; # VERSION


our @EXPORT_OK = qw( malloc free memset memcpy_addr );

my $ffi = FFI::Platypus->new( api => 1, lib => [undef] );

constant->import( memcpy_addr => $ffi->find_symbol( 'memcpy' ) );

$ffi->attach( malloc => ['size_t']                => 'opaque', '$'   );
$ffi->attach( free   => ['opaque']                => 'void',   '$'   );
$ffi->attach( memset => ['opaque','int','size_t'] => 'opaque', '$$$' );

## should this be configurable for when we hunt for memory leaks?
#sub malloc ($)
#{
#  $ffi->function( malloc => ['size_t'] => 'opaque' )
#      ->call(@_);
#}
#
#sub free ($)
#{
#  $ffi->function( free => ['opaque'] => 'void' )
#      ->call(@_);
#}
#
#sub memset ($$$)
#{
#  $ffi->function( memset => ['opaque','int','size_t'] => 'opaque' )
#      ->call(@_);
#}

1;

__END__