File Coverage

blib/lib/FFI/Raw.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 2 2 100.0
total 36 36 100.0


line stmt bran cond sub pod time code
1             package FFI::Raw;
2              
3 6     6   1305879 use strict;
  6         50  
  6         177  
4 6     6   32 use warnings;
  6         12  
  6         170  
5 6     6   29 use base qw( FFI::Platypus::Legacy::Raw );
  6         14  
  6         3235  
6 6     6   153164 use FFI::Raw::Callback;
  6         20  
  6         164  
7 6     6   2549 use FFI::Raw::Ptr;
  6         16  
  6         162  
8 6     6   2529 use FFI::Raw::MemPtr;
  6         17  
  6         336  
9              
10             # ABSTRACT: Perl bindings to the portable FFI library (libffi)
11             our $VERSION = '0.32';
12              
13             foreach my $function (qw( memptr callback void int uint short ushort long ulong int64 uint64 char uchar float double str ptr ))
14             {
15 6     6   53 no strict 'refs';
  6         13  
  6         687  
16             *$function = *{"FFI::Platypus::Legacy::Raw::$function"};
17             }
18              
19             sub platypus
20             {
21 1     1 1 729 require Carp;
22 1         102 Carp::croak("platypus not available for FFI::Raw interface");
23             }
24              
25             sub attach
26             {
27 1     1 1 6290 require Carp;
28 1         184 Carp::croak("attach not available for FFI::Raw interface");
29             }
30              
31             1;
32              
33             __END__