stubbed out HZ:FB

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

diff --git a/lib/HTML/Zoom/FilterBuilder.pm b/lib/HTML/Zoom/FilterBuilder.pm
index 32ffe11..ff074c7 100644 (file)
--- a/lib/HTML/Zoom/FilterBuilder.pm
+++ b/lib/HTML/Zoom/FilterBuilder.pm
@@ -197,11 +197,11 @@ sub replace {
     # then we need to handle that here
     if ($options->{content}
         && ref($coll) eq 'HASH'
-        && delete $coll->{is_in_place_close}
+        && $coll->{is_in_place_close}
       ) {
-      delete $coll->{raw};
       my $close = $stream->next;
-      delete @{$close}{qw(is_in_place_close raw)};
+      # shallow copy and nuke in place and raw (to force smart print)
+      $_ = { %$_ }, delete @{$_}{qw(is_in_place_close raw)} for ($coll, $close);
       $emit = $self->_stream_concat(
                 $emit,
                 $self->_stream_from_array($close),
@@ -275,3 +275,27 @@ sub repeat_content {
 }
 
 1;
+
+=head1 NAME
+
+HTML::Zoom::FilterBuilder - Add Filters to a Stream
+
+=head1 DESCRIPTION
+
+Given a L<HTML::Zoom> stream, provide methods to apply filters which
+alter the content of that stream.
+
+=head1 ALSO SEE
+
+L<HTML::Zoom>
+
+=head1 AUTHORS
+
+See L<HTML::Zoom> for authors.
+
+=head1 LICENSE
+
+See L<HTML::Zoom> for the license.
+
+=cut
+