diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 15:05:33 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 15:05:33 +0200 |
| commit | baca91450129be699d6efc903f96450faff8b90b (patch) | |
| tree | 1884d66c9a6094d68959e276895afb941e880472 /Xerl/XML/Reader.pm | |
| parent | d7f6c13f823bd53d7b5a3d5c004850b6b3d9307d (diff) | |
add parsing of CDATA, return SAX objects from sax method
Diffstat (limited to 'Xerl/XML/Reader.pm')
| -rw-r--r-- | Xerl/XML/Reader.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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($) { |