From 621fcd81dec2092bb1b29e9fc1801cf28c12c0e6 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 9 Mar 2007 08:57:12 +0000 Subject: [PATCH] Add destroy() method which destroys associated result-set. --- lib/ZOOM/IRSpy/Connection.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Connection.pm b/lib/ZOOM/IRSpy/Connection.pm index 8fd6329..b556447 100644 --- a/lib/ZOOM/IRSpy/Connection.pm +++ b/lib/ZOOM/IRSpy/Connection.pm @@ -1,4 +1,4 @@ -# $Id: Connection.pm,v 1.9 2007-03-07 10:26:50 mike Exp $ +# $Id: Connection.pm,v 1.10 2007-03-09 08:57:12 mike Exp $ package ZOOM::IRSpy::Connection; @@ -57,6 +57,13 @@ sub create { } +sub destroy { + my $this = shift(); + $this->SUPER::destroy(@_); + $this->{rs}->destroy() if defined $this->{rs}; +} + + sub irspy { my $this = shift(); return $this->{irspy}; -- 1.7.10.4