Lazy enum values by installing the CODE ref as required (PerlFFI#11)

Issues: - Cannot cast value back to name (for return values from C, etc.)
sanko · Aug 24, 2021 · f2dd466 · f2dd466
1 parent 9531dcd
commit f2dd466
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 1 deletion.
diff --git a/lib/FFI/Platypus/Type/Enum.pm b/lib/FFI/Platypus/Type/Enum.pm
@@ -335,7 +335,8 @@ sub ffi_custom_type_api_1
         foreach my $name ($name,@aliases)
         {
           my $full = join '::', $package, $prefix . ( $config{casing} eq 'upper' ? uc($name) : $name );
-          constant->import($full, $index);
+          no strict 'refs';
+          ref $index eq 'CODE' ? *{$full} = $index : constant->import($full, $index);
         }
       }
     }

diff --git a/t/ffi_platypus_type_enum.t b/t/ffi_platypus_type_enum.t
@@ -238,4 +238,21 @@ subtest 'dualvar' => sub {
 
 };
 
+subtest 'code' => sub {
+
+  my $ffi = FFI::Platypus->new( api => 1 );
+
+  $ffi->load_custom_type('::Enum', 'enum1', { package => 'Foo4', casing => 'keep' },
+    'zero',
+    'one',
+    'two',
+	'three',
+    ['five' => sub () { Foo4::two() + Foo4::three() } ]
+  );
+
+  is($ffi->cast('enum', 'enum1', 2), 'two');
+  todo '::Enum cannot back cast lazy values' => sub {is($ffi->cast('enum', 'enum1', 5), 'five')};
+  is(Foo4::five(), 5);
+};
+
 done_testing;