add tmpfile ctor

Author: plicease

Changes

@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}},
 
 {{$NEXT}}
+  - Add tmpfile constructor for FFI::C::File (gh#41)
 
 0.09      2020-09-22 14:28:36 -0600
   - Move to PerlFFI org (gh#37)

lib/FFI/C/File.pm

@@ -125,6 +125,27 @@ $ffi->attach( fopen => [ 'string', 'string' ] => 'opaque' => sub {
   bless \$ptr, $class;
 });
 
+=head2 tmpfile
+
+ my $file = FFI::C::File->tmpfile;
+
+Creates and opens a temporary file.  The file is opened as binary file for update.  On
+Windows this may require administrator privileges.
+
+=cut
+
+$ffi->attach( tmpfile => [] => 'opaque' => sub {
+  my($xsub, $class) = @_;
+  if(my $ptr = $xsub->())
+  {
+    return bless \$ptr, $class;
+  }
+  else
+  {
+    croak "Error opening temp file: $!"
+  }
+});
+
 =head2 new
 
  my $file = FFI::C::File->new($ptr);

lib/FFI/C/PosixFile.pm

@@ -79,7 +79,7 @@ Returns the POSIX file descriptor for the file pointer.
 else
 {
   require Sub::Install;
-  foreach my $ctor (qw( fopen freopen new fdopen ))
+  foreach my $ctor (qw( fopen freopen new fdopen tmpfile ))
   {
     Sub::Install::install_sub({
       code => sub { croak "FFI::C::PosixFile not supported on this platform"; },

t/ffi_c_file.t

@@ -56,6 +56,13 @@ subtest 'basic read' => sub {
 
 };
 
+subtest 'tmpfile' => sub {
+  skip_all 'tricky permissions on windows' if $^O eq 'MSWin32';
+
+  my $file = FFI::C::File->tmpfile;
+  isa_ok $file, 'FFI::C::File';
+};
+
 subtest 'basic write' => sub {
 
   my $path = tempfile;