From 3511b0a184acbaabe424f3373a71d3fc531f4048 Mon Sep 17 00:00:00 2001
From: Tobias Leich <email@froggs.de>
Date: Tue, 27 Mar 2018 23:22:39 +0200
Subject: [PATCH] Expose zmq library version

---
 lib/Net/ZMQ4/Util.pm6 | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/Net/ZMQ4/Util.pm6 b/lib/Net/ZMQ4/Util.pm6
index 651103e..333e79b 100644
--- a/lib/Net/ZMQ4/Util.pm6
+++ b/lib/Net/ZMQ4/Util.pm6
@@ -1,9 +1,9 @@
-unit module Net::ZMQ4::Util;
+unit class Net::ZMQ4::Util;
 
 use NativeCall;
 
 # ZMQ_EXPORT void zmq_version (int *major, int *minor, int *patch);
-sub zmq_version(CArray[int32], CArray[int32], CArray[int32]) is native('zmq',v5) { * }
+our sub zmq_version(int32 is rw, int32 is rw, int32 is rw) is native('zmq',v5) { * }
 # ZMQ_EXPORT int zmq_errno (void);
 sub zmq_errno(--> int32) is native('zmq',v5) { * }
 # ZMQ_EXPORT const char *zmq_strerror (int errnum);
@@ -25,4 +25,12 @@ my sub zmq_die() is export {
 
 our $context-count is export = 0;
 
+method library-version {
+    my int32 $major = 0;
+    my int32 $minor = 0;
+    my int32 $patch = 0;
+    zmq_version($major, $minor, $patch);
+    Version.new($major ~ '.' ~ $minor ~ '.' ~ $patch);
+}
+
 # vim: ft=perl6