add DESTROY methods to placate perl >= 5.13.1

[catagits/HTML-Zoom.git] / lib / HTML / Zoom.pm

diff --git a/lib/HTML/Zoom.pm b/lib/HTML/Zoom.pm
index baeec15..63774b3 100644 (file)
--- a/lib/HTML/Zoom.pm
+++ b/lib/HTML/Zoom.pm
@@ -162,6 +162,8 @@ sub AUTOLOAD {
   }
 }
 
+sub DESTROY {}
+
 1;
 
 =head1 NAME