Merge pull request #4 from plicease/symbol

add Symbol attribute a la Perl6

Author: mohawk2

lib/NativeCall.pm

@@ -12,6 +12,7 @@ my %attr21 = (
   Native => 1,
   Args => 1,
   Returns => 1,
+  Symbol => 1,
 );
 
 sub _attr_parse {
@@ -42,7 +43,7 @@ sub MODIFY_CODE_ATTRIBUTES {
     }
   }
   my $subname = subname $subref;
-  my $sub_base = (split /::/, $subname)[-1];
+  my $sub_base = $attr2args{Symbol}->[0] // (split /::/, $subname)[-1];
   my $ffi = FFI::Platypus->new;
   my $lib = $attr2args{Native}->[0] || undef; # undef means standard library
   $ffi->lib($lib ? find_lib_or_die lib => $lib : undef);
@@ -79,6 +80,10 @@ NativeCall - Perl 5 interface to foreign functions in Perl code without XS
 
   sub fmax :Args(double, double) :Native :Returns(double) {}
   say "fmax(2.0, 3.0) = " . fmax(2.0, 3.0);
+  
+  # avoid Perl built in also called "abs"
+  sub myabs :Args(int) :Native :Returns(int) :Symbol(abs) {}
+  say "abs(-3) = " . abs(-3);
 
 =head1 DESCRIPTION
 
@@ -105,6 +110,10 @@ A comma-separated list of L<FFI::Platypus::Type>s.
 
 A single L<FFI::Platypus::Type>.
 
+=item Symbol
+
+The native symbol name, if different from the Perl sub name.
+
 =back
 
 =head1 INSPIRATION

t/symbol.t

@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Test::More;
+use FFI::Platypus;
+
+my %sym;
+
+no warnings 'redefine';
+sub FFI::Platypus::attach {
+  my($self, $name, $args, $ret) = @_;
+  $sym{$name->[1]} = $name->[0];
+  $self;
+}
+
+use parent qw( NativeCall );
+
+sub foo1 :Returns(void) :Symbol(bar1) {}
+is $sym{'main::foo1'}, 'bar1';
+
+sub foo2 :Returns(void) {}
+is $sym{'main::foo2'}, 'foo2';
+
+done_testing;