X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FZoom%2FParser%2FBuiltIn.pm;h=ba6f41aac019e65c671b3bd9b60dce10cd64b197;hb=d80786d07e9746f71b9b93554ce38f62ad1787e6;hp=30da5d6bb1b2c28ee938a9fca79d329cec0f30e7;hpb=f8ed299b5a37e9ff273ee064f7087449353c69d8;p=catagits%2FHTML-Zoom.git diff --git a/lib/HTML/Zoom/Parser/BuiltIn.pm b/lib/HTML/Zoom/Parser/BuiltIn.pm index 30da5d6..ba6f41a 100644 --- a/lib/HTML/Zoom/Parser/BuiltIn.pm +++ b/lib/HTML/Zoom/Parser/BuiltIn.pm @@ -2,19 +2,19 @@ package HTML::Zoom::Parser::BuiltIn; use strict; use warnings FATAL => 'all'; - -use HTML::Zoom::CodeStream; +use base qw(HTML::Zoom::SubObject); sub html_to_events { - my ($class, $text) = @_; + my ($self, $text) = @_; my @events; _hacky_tag_parser($text => sub { push @events, $_[0] }); return \@events; } sub html_to_stream { - my ($class, $text) = @_; - return HTML::Zoom::CodeStream->from_array(@{$class->html_to_events($text)}); + my ($self, $text) = @_; + return $self->_zconfig->stream_utils + ->stream_from_array(@{$self->html_to_events($text)}); } sub _hacky_tag_parser {