File Coverage

blib/lib/FFI/Platypus/Lang/Raw.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	23	23	100.0

package FFI::Platypus::Lang::Raw;

use strict;
use warnings;
use base qw( FFI::Platypus::Lang::C );

# ABSTRACT: Types for use with FFI::Platypus::Legacy::Raw
our $VERSION = '0.04'; # VERSION


my %types;
sub native_type_map
{
  my $class = shift;
  unless(%types)
  {
    %types = (
      %{ $class->SUPER::native_type_map },
      'v' => 'void',
      'x' => 'sint64',
      'X' => 'uint64',
      'i' => 'sint32',
      'I' => 'sint64',
      'z' => 'sint16',
      'Z' => 'uint16',
      'c' => 'sint8',
      'C' => 'uint8',
      'f' => 'float',
      'd' => 'double',
      's' => 'string',
    );
  }
  $types{l} = $types{'long'};
  $types{L} = $types{'unsigned long'};
  \%types;
}

1;

__END__