File Coverage

blib/lib/FFI/Me.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	8	8	100.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	1	1	100.0
total	52	54	96.3

package FFI::Me;

use strict;
use warnings;
use FFI::Raw ();

$FFI::Me::VERSION = '0.01';

sub import {
    my $caller = caller();
    no strict 'refs';    ## no critic
    *{ $caller . '::ffi' } = \&ffi;
    return;
}

sub ffi {
    my ( $name, %args ) = @_;

    $args{sym} = $name       if !exists $args{sym} || !defined $args{sym};
    $args{rv}  = ffi::void() if !exists $args{rv}  || !defined $args{rv};
    $args{arg} = []          if !exists $args{arg};

    my $code = FFI::Raw->new( $args{lib}, $args{sym}, $args{rv}, @{ $args{arg} } );

    my $caller = caller();
    no strict 'refs';    ## no critic
    *{ $caller . '::' . $name } = sub { shift if $args{method}; return $code->call(@_) };

    return;
}

*ffi::void   = \&FFI::Raw::void;
*ffi::int    = \&FFI::Raw::int;
*ffi::uint   = \&FFI::Raw::uint;
*ffi::short  = \&FFI::Raw::short;
*ffi::ushort = \&FFI::Raw::ushort;
*ffi::long   = \&FFI::Raw::long;
*ffi::ulong  = \&FFI::Raw::ulong;
*ffi::int64  = \&FFI::Raw::int64;
*ffi::uint64 = \&FFI::Raw::uint64;
*ffi::char   = \&FFI::Raw::char;
*ffi::uchar  = \&FFI::Raw::uchar;
*ffi::float  = \&FFI::Raw::float;
*ffi::double = \&FFI::Raw::double;
*ffi::str    = \&FFI::Raw::str;
*ffi::ptr    = \&FFI::Raw::ptr;

1;

__END__