Add LLVM::Function for real

runtime/parrot/library/LLVM/Function.pm

@@ -0,0 +1,14 @@
+class LLVM::Function {
+    our $counter;
+    has $!ptr;
+
+    method BUILD($ptr) { $!ptr := $ptr; self };
+
+    method append_basic_block($name?) {
+        %LLVM::F<LLVMAppendBasicBlock>($!ptr, $name ?? $name !! "block" ~~ $counter++);
+    }
+
+    method _get_ptr() { $!ptr };
+};
+
+# vim: ft=perl6

runtime/parrot/library/LLVM/Module.pm

@@ -25,7 +25,7 @@ class LLVM::Module {
             0,                  # is var args
         );
 
-        %LLVM::F<LLVMAddFunction>($!ref, $name, $type);
+        LLVM::Function.new.BUILD(%LLVM::F<LLVMAddFunction>($!ref, $name, $type));
     }
 
     method _get_ptr() { $!ref };

t/library/llvm.t

@@ -10,8 +10,11 @@ Q:PIR {
 
 my $module := LLVM::Module.new.BUILD("HELLO");
 ok(pir::defined($module), "LLVM::Module created");
+ok( $module ~~ LLVM::Module, ".. with proper type");
 
 my $function := $module.add_function("hello", "");
+ok(pir::defined($function), "Function created");
+ok( $function ~~ LLVM::Function, ".. with proper type");
 
 # This will dump to stderr.
 $module.dump();