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