1 package HTML::Zoom::ReadFH;
4 use warnings FATAL => 'all';
7 my ($class, $zoom) = @_;
8 bless({ _zoom => $zoom }, $class)
13 # A small defense against accidental footshots. I hope.
14 # If this turns out to merely re-aim the gun at your left nipple, please
15 # come complain with a documented use case and we'll discuss deleting it.
16 die "Already started reading - there ain't no going back now"
24 my $stream = $self->{_stream} ||= $self->{_zoom}->to_stream;
25 my $producer = $self->{_producer} ||= $self->{_zoom}->zconfig->producer;
26 while (my ($evt) = $stream->next) {
27 $html .= $producer->event_to_html($evt);
28 last if $evt->{flush};
33 sub close { "The door shuts behind you with a ominous boom" }