From baca91450129be699d6efc903f96450faff8b90b Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 15:05:33 +0200
Subject: add parsing of CDATA, return SAX objects from sax method

---
 Xerl/XML/Reader.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Xerl/XML/Reader.pm')

diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm
index 96a8835..9d9d3d6 100644
--- a/Xerl/XML/Reader.pm
+++ b/Xerl/XML/Reader.pm
@@ -52,14 +52,15 @@ sub open($) {
 
 sub sax() {
   my Xerl::XML::Reader $self = $_[0];
+  my $sax_handler = Xerl::XML::SAXHandler->new();
 
   my $parser = XML::SAX::ParserFactory->parser(
-    Handler => Xerl::XML::SAXHandler->new()
+    Handler => $sax_handler
   );
 
   $parser->parse_uri($self->get_path());
 
-  return $parser->{xerl}{root};
+  return $sax_handler->{xerl}{root};
 }
 
 sub parse($) {
-- 
cgit v1.2.3