Add perl binding and documentation for new ping_iterator_count function

[liboping.git] / bindings / perl / Oping.xs

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index c88e3dca981710649212fac8a21ff97ad68c92bd..5d8fa40992cf07292eb83a8dfbaaacef75d21e2b 100644 (file)
--- a/bindings/perl/Oping.xs
+++ b/bindings/perl/Oping.xs
@@ -134,6 +134,14 @@ _ping_iterator_next (iter)
        OUTPUT:
                RETVAL
 
+int
+_ping_iterator_count (obj)
+       pingobj_t *obj
+       CODE:
+               RETVAL = ping_iterator_count (obj);
+       OUTPUT:
+               RETVAL
+
 double
 _ping_iterator_get_latency (iter)
        pingobj_iter_t *iter