test collect in isolation

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / Producer / BuiltIn.pm

diff --git a/lib/HTML/Zoom/Producer/BuiltIn.pm b/lib/HTML/Zoom/Producer/BuiltIn.pm
index 3e4767f..fb869ee 100644 (file)
--- a/lib/HTML/Zoom/Producer/BuiltIn.pm
+++ b/lib/HTML/Zoom/Producer/BuiltIn.pm
@@ -10,6 +10,11 @@ sub html_from_stream {
   return $html;
 }
 
+sub html_from_events {
+  my ($class, $events) = @_;
+  join '', map $class->_event_to_html($_), @$events;
+}
+
 sub _event_to_html {
   my ($self, $evt) = @_;
   # big expression