X-Git-Url: https://git.octo.it/?p=liboping.git;a=blobdiff_plain;f=bindings%2Fperl%2FOping.xs;fp=bindings%2Fperl%2FOping.xs;h=5d8fa40992cf07292eb83a8dfbaaacef75d21e2b;hp=c88e3dca981710649212fac8a21ff97ad68c92bd;hb=e67d7327869b9e7e91cdf1971670d29c8bd22e64;hpb=8fe50ddb4a18b033f8ea63ef36393ef8b1033f64

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index c88e3dc..5d8fa40 100644
--- 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