From daa885a1a02081d685ce88a85936a98e71a4bcce Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 27 Sep 2006 12:48:20 +0000 Subject: [PATCH] Add remove_callbacks() --- lib/ZOOM/Pod.pm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/Pod.pm b/lib/ZOOM/Pod.pm index 280f099..3e2f9ce 100644 --- a/lib/ZOOM/Pod.pm +++ b/lib/ZOOM/Pod.pm @@ -1,4 +1,4 @@ -# $Id: Pod.pm,v 1.20 2006-09-27 12:40:44 mike Exp $ +# $Id: Pod.pm,v 1.21 2006-09-27 12:48:20 mike Exp $ package ZOOM::Pod; @@ -210,6 +210,20 @@ sub callback { return $old; } +=head2 remove_callbacks() + + $pod->remove_callbacks(); + +Removes all registed callbacks from the pod. This is useful when the +pod has completed one operation and is about to start the next. + +=cut + +sub remove_callbacks { + my $this = shift(); + $this->{callback} = {}; +} + =head2 search_pqf() $pod->search_pqf("@attr 1=1003 wedel"); -- 1.7.10.4