few extra utility routines

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / ReadFH.pm

diff --git a/lib/HTML/Zoom/ReadFH.pm b/lib/HTML/Zoom/ReadFH.pm
new file mode 100644 (file)
index 0000000..9fb2ad9
--- /dev/null
+++ b/lib/HTML/Zoom/ReadFH.pm
@@ -0,0 +1,35 @@
+package HTML::Zoom::ReadFH;
+
+use strict;
+use warnings FATAL => 'all';
+
+sub from_zoom {
+  my ($class, $zoom) = @_;
+  bless({ _zoom => $zoom }, $class)
+}
+
+sub to_zoom {
+  my $self = shift;
+  # A small defense against accidental footshots. I hope.
+  # If this turns out to merely re-aim the gun at your left nipple, please
+  # come complain with a documented use case and we'll discuss deleting it.
+  die "Already started reading - there ain't no going back now"
+    if $self->{_stream};
+  $self->{_zoom}
+}
+
+sub getline {
+  my $self = shift;
+  my $html;
+  my $stream = $self->{_stream} ||= $self->{_zoom}->to_stream;
+  my $producer = $self->{_producer} ||= $self->{_zoom}->zconfig->producer;
+  while (my ($evt) = $stream->next) {
+    $html .= $producer->event_to_html($evt);
+    last if $evt->{flush};
+  }
+  return $html
+}
+
+sub close { "The door shuts behind you with a ominous boom" }
+
+1;