package My::StringUtils;

use strict;
use warnings;

use Export qw( import );
use FFI::Platypus 2.00;

our @EXPORT_OK = qw( string_reverse );
 
my $ffi = FFI::Platypus->new(
   api => 2,
   lib => './string_reverse.so',
);
 
$ffi->attach( string_reverse => [ 'string' ] => 'string' );
 
END { string_reverse( undef ); }

1

##</code><code>##

use strict;
use warnings;
use feature qw( say );

use My::StringUtils qw( string_reverse );

say string_reverse( "Hello world" );