| blib/lib/HTML/Zoom/FilterBuilder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 195 | 206 | 94.6 |
| branch | 82 | 94 | 87.2 |
| condition | 27 | 33 | 81.8 |
| subroutine | 41 | 43 | 95.3 |
| pod | 17 | 21 | 80.9 |
| total | 362 | 397 | 91.1 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package HTML::Zoom::FilterBuilder; | ||||||
| 2 | |||||||
| 3 | 14 | 14 | 1062 | use strictures 1; | |||
| 14 | 108 | ||||||
| 14 | 459 | ||||||
| 4 | 14 | 14 | 1128 | use base qw(HTML::Zoom::SubObject); | |||
| 14 | 31 | ||||||
| 14 | 1328 | ||||||
| 5 | 14 | 14 | 3254 | use HTML::Zoom::CodeStream; | |||
| 14 | 28 | ||||||
| 14 | 44705 | ||||||
| 6 | |||||||
| 7 | sub _stream_from_code { | ||||||
| 8 | 133 | 133 | 408 | shift->_zconfig->stream_utils->stream_from_code(@_) | |||
| 9 | } | ||||||
| 10 | |||||||
| 11 | sub _stream_from_array { | ||||||
| 12 | 53 | 53 | 163 | shift->_zconfig->stream_utils->stream_from_array(@_) | |||
| 13 | } | ||||||
| 14 | |||||||
| 15 | sub _stream_from_proto { | ||||||
| 16 | 151 | 151 | 450 | shift->_zconfig->stream_utils->stream_from_proto(@_) | |||
| 17 | } | ||||||
| 18 | |||||||
| 19 | sub _stream_concat { | ||||||
| 20 | 134 | 134 | 449 | shift->_zconfig->stream_utils->stream_concat(@_) | |||
| 21 | } | ||||||
| 22 | |||||||
| 23 | sub _flatten_stream_of_streams { | ||||||
| 24 | 18 | 18 | 71 | shift->_zconfig->stream_utils->flatten_stream_of_streams(@_) | |||
| 25 | } | ||||||
| 26 | |||||||
| 27 | 1 | 1 | 0 | 34 | sub set_attr { shift->set_attribute(@_); } | ||
| 28 | |||||||
| 29 | sub set_attribute { | ||||||
| 30 | 13 | 13 | 1 | 38 | my $self = shift; | ||
| 31 | 13 | 37 | my $attr = $self->_parse_attribute_args(@_); | ||||
| 32 | sub { | ||||||
| 33 | 14 | 14 | 36 | my $a = (my $evt = $_[0])->{attrs}; | |||
| 34 | 14 | 38 | my @kadd = grep {!exists $a->{$_}} keys %$attr; | ||||
| 16 | 56 | ||||||
| 35 | 5 | 228 | +{ %$evt, raw => undef, raw_attrs => undef, | ||||
| 36 | attrs => { %$a, %$attr }, | ||||||
| 37 | 14 | 100 | 171 | @kadd ? (attr_names => [ @{$evt->{attr_names}}, @kadd ]) : () | |||
| 38 | } | ||||||
| 39 | 13 | 116 | }; | ||||
| 40 | } | ||||||
| 41 | |||||||
| 42 | sub _parse_attribute_args { | ||||||
| 43 | 30 | 30 | 42 | my $self = shift; | |||
| 44 | |||||||
| 45 | 30 | 50 | 100 | 112 | die "Long form arg (name => 'class', value => 'x') is no longer supported" | ||
| 66 | |||||||
| 46 | if(@_ == 1 && $_[0]->{'name'} && $_[0]->{'value'}); | ||||||
| 47 | |||||||
| 48 | 30 | 100 | 135 | my $opts = ref($_[0]) eq 'HASH' ? $_[0] : {$_[0] => $_[1]}; | |||
| 49 | 30 | 45 | for (values %{$opts}) { $self->_zconfig->parser->html_escape($_); } | ||||
| 30 | 94 | ||||||
| 32 | 110 | ||||||
| 50 | 30 | 64 | return $opts; | ||||
| 51 | } | ||||||
| 52 | |||||||
| 53 | sub add_attribute { | ||||||
| 54 | 0 | 0 | 0 | 0 | die "renamed to add_to_attribute. killing this entirely for 1.0"; | ||
| 55 | } | ||||||
| 56 | |||||||
| 57 | 1 | 1 | 1 | 11 | sub add_class { shift->add_to_attribute('class',@_) } | ||
| 58 | |||||||
| 59 | 1 | 1 | 1 | 11 | sub remove_class { shift->remove_from_attribute('class',@_) } | ||
| 60 | |||||||
| 61 | 0 | 0 | 0 | 0 | sub set_class { shift->set_attribute('class',@_) } | ||
| 62 | |||||||
| 63 | 1 | 1 | 0 | 11 | sub set_id { shift->set_attribute('id',@_) } | ||
| 64 | |||||||
| 65 | sub add_to_attribute { | ||||||
| 66 | 14 | 14 | 1 | 39 | my $self = shift; | ||
| 67 | 14 | 45 | my $attr = $self->_parse_attribute_args(@_); | ||||
| 68 | sub { | ||||||
| 69 | 19 | 19 | 46 | my $a = (my $evt = $_[0])->{attrs}; | |||
| 70 | 19 | 48 | my @kadd = grep {!exists $a->{$_}} keys %$attr; | ||||
| 19 | 69 | ||||||
| 71 | 19 | 100 | 309 | +{ %$evt, raw => undef, raw_attrs => undef, | |||
| 72 | attrs => { | ||||||
| 73 | %$a, | ||||||
| 74 | 10 | 94 | map {$_ => join(' ', (exists $a->{$_} ? $a->{$_} : ()), $attr->{$_}) } | ||||
| 75 | keys %$attr | ||||||
| 76 | }, | ||||||
| 77 | 19 | 100 | 98 | @kadd ? (attr_names => [ @{$evt->{attr_names}}, @kadd ]) : () | |||
| 78 | } | ||||||
| 79 | 14 | 105 | }; | ||||
| 80 | } | ||||||
| 81 | |||||||
| 82 | sub remove_from_attribute { | ||||||
| 83 | 3 | 3 | 1 | 22 | my $self = shift; | ||
| 84 | 3 | 11 | my $attr = $self->_parse_attribute_args(@_); | ||||
| 85 | sub { | ||||||
| 86 | 3 | 3 | 7 | my $a = (my $evt = $_[0])->{attrs}; | |||
| 87 | 2 | 3 | +{ %$evt, raw => undef, raw_attrs => undef, | ||||
| 88 | attrs => { | ||||||
| 89 | %$a, | ||||||
| 90 | #TODO needs to support multiple removes | ||||||
| 91 | 2 | 24 | map { my $tar = $_; $_ => join ' ', | ||||
| 3 | 16 | ||||||
| 92 | 2 | 6 | map {$attr->{$tar} ne $_} split ' ', $a->{$_} } | ||||
| 93 | 3 | 15 | grep {exists $a->{$_}} keys %$attr | ||||
| 94 | }, | ||||||
| 95 | } | ||||||
| 96 | 3 | 31 | }; | ||||
| 97 | } | ||||||
| 98 | |||||||
| 99 | sub remove_attribute { | ||||||
| 100 | 3 | 3 | 1 | 24 | my ($self, $args) = @_; | ||
| 101 | 3 | 100 | 14 | my $name = (ref($args) eq 'HASH') ? $args->{name} : $args; | |||
| 102 | sub { | ||||||
| 103 | 3 | 3 | 59 | my $a = (my $evt = $_[0])->{attrs}; | |||
| 104 | 3 | 100 | 18 | return $evt unless exists $a->{$name}; | |||
| 105 | 2 | 9 | $a = { %$a }; delete $a->{$name}; | ||||
| 2 | 6 | ||||||
| 106 | 2 | 96 | +{ %$evt, raw => undef, raw_attrs => undef, | ||||
| 107 | attrs => $a, | ||||||
| 108 | 2 | 8 | attr_names => [ grep $_ ne $name, @{$evt->{attr_names}} ] | ||||
| 109 | } | ||||||
| 110 | 3 | 50 | }; | ||||
| 111 | } | ||||||
| 112 | |||||||
| 113 | sub transform_attribute { | ||||||
| 114 | 4 | 4 | 1 | 44 | my $self = shift; | ||
| 115 | 4 | 50 | 12 | my ( $name, $code ) = @_ > 1 ? @_ : @{$_[0]}{qw(name code)}; | |||
| 4 | 11 | ||||||
| 116 | |||||||
| 117 | sub { | ||||||
| 118 | 4 | 4 | 5 | my $evt = $_[0]; | |||
| 119 | 4 | 5 | my %a = %{ $evt->{attrs} }; | ||||
| 4 | 19 | ||||||
| 120 | 4 | 7 | my @names = @{ $evt->{attr_names} }; | ||||
| 4 | 12 | ||||||
| 121 | |||||||
| 122 | 4 | 11 | my $existed_before = exists $a{$name}; | ||||
| 123 | 4 | 12 | my $v = $code->( $a{$name} ); | ||||
| 124 | 4 | 100 | 33 | my $deleted = $existed_before && ! defined $v; | |||
| 125 | 4 | 100 | 16 | my $added = ! $existed_before && defined $v; | |||
| 126 | 4 | 100 | 12 | if( $added ) { | |||
| 100 | |||||||
| 127 | 1 | 2 | push @names, $name; | ||||
| 128 | 1 | 3 | $a{$name} = $v; | ||||
| 129 | } | ||||||
| 130 | elsif( $deleted ) { | ||||||
| 131 | 1 | 2 | delete $a{$name}; | ||||
| 132 | 1 | 5 | @names = grep $_ ne $name, @names; | ||||
| 133 | } else { | ||||||
| 134 | 2 | 5 | $a{$name} = $v; | ||||
| 135 | } | ||||||
| 136 | 4 | 100 | 100 | 50 | +{ %$evt, raw => undef, raw_attrs => undef, | ||
| 137 | attrs => \%a, | ||||||
| 138 | ( $deleted || $added | ||||||
| 139 | ? (attr_names => \@names ) | ||||||
| 140 | : () ) | ||||||
| 141 | } | ||||||
| 142 | 4 | 40 | }; | ||||
| 143 | } | ||||||
| 144 | |||||||
| 145 | sub collect { | ||||||
| 146 | 139 | 139 | 1 | 239 | my ($self, $options) = @_; | ||
| 147 | 139 | 394 | my ($into, $passthrough, $content, $filter, $flush_before) = | ||||
| 148 | 139 | 228 | @{$options}{qw(into passthrough content filter flush_before)}; | ||||
| 149 | sub { | ||||||
| 150 | 139 | 139 | 213 | my ($evt, $stream) = @_; | |||
| 151 | # We wipe the contents of @$into here so that other actions depending | ||||||
| 152 | # on this (such as a repeater) can be invoked multiple times easily. | ||||||
| 153 | # I -suspect- it's better for that state reset to be managed here; if it | ||||||
| 154 | # ever becomes painful the decision should be revisited | ||||||
| 155 | 139 | 100 | 388 | if ($into) { | |||
| 156 | 25 | 100 | 87 | @$into = $content ? () : ($evt); | |||
| 157 | } | ||||||
| 158 | 139 | 100 | 349 | if ($evt->{is_in_place_close}) { | |||
| 159 | 6 | 100 | 66 | 45 | return $evt if $passthrough || $content; | ||
| 160 | 3 | 11 | return; | ||||
| 161 | } | ||||||
| 162 | 133 | 261 | my $name = $evt->{name}; | ||||
| 163 | 133 | 169 | my $depth = 1; | ||||
| 164 | 133 | 100 | 293 | my $_next = $content ? 'peek' : 'next'; | |||
| 165 | 133 | 100 | 295 | if ($filter) { | |||
| 166 | 6 | 100 | 18 | if ($content) { | |||
| 167 | 4 | 7 | $stream = do { local $_ = $stream; $filter->($stream) }; | ||||
| 4 | 7 | ||||||
| 4 | 12 | ||||||
| 168 | } else { | ||||||
| 169 | 2 | 4 | $stream = do { | ||||
| 170 | 2 | 8 | local $_ = $self->_stream_concat( | ||||
| 171 | $self->_stream_from_array($evt), | ||||||
| 172 | $stream, | ||||||
| 173 | ); | ||||||
| 174 | 2 | 15 | $filter->($_); | ||||
| 175 | }; | ||||||
| 176 | 2 | 9 | $evt = $stream->next; | ||||
| 177 | } | ||||||
| 178 | } | ||||||
| 179 | my $collector = $self->_stream_from_code(sub { | ||||||
| 180 | 213 | 100 | 1270 | return unless $stream; | |||
| 181 | 205 | 673 | while (my ($evt) = $stream->$_next) { | ||||
| 182 | 448 | 100 | 1061 | $depth++ if ($evt->{type} eq 'OPEN'); | |||
| 183 | 448 | 100 | 958 | $depth-- if ($evt->{type} eq 'CLOSE'); | |||
| 184 | 448 | 100 | 975 | unless ($depth) { | |||
| 185 | 133 | 206 | undef $stream; | ||||
| 186 | 133 | 100 | 716 | return if $content; | |||
| 187 | 16 | 100 | 42 | push(@$into, $evt) if $into; | |||
| 188 | 16 | 100 | 66 | return $evt if $passthrough; | |||
| 189 | 8 | 41 | return; | ||||
| 190 | } | ||||||
| 191 | 315 | 100 | 717 | push(@$into, $evt) if $into; | |||
| 192 | 315 | 100 | 925 | $stream->next if $content; | |||
| 193 | 315 | 100 | 1402 | return $evt if $passthrough; | |||
| 194 | } | ||||||
| 195 | 0 | 0 | die "Never saw closing before end of source"; | ||||
| 196 | 133 | 891 | }); | ||||
| 197 | 133 | 100 | 437 | if ($flush_before) { | |||
| 198 | 1 | 50 | 33 | 8 | if ($passthrough||$content) { | ||
| 199 | 0 | 0 | $evt = { %$evt, flush => 1 }; | ||||
| 200 | } else { | ||||||
| 201 | 1 | 4 | $evt = { type => 'EMPTY', flush => 1 }; | ||||
| 202 | } | ||||||
| 203 | } | ||||||
| 204 | 133 | 100 | 100 | 912 | return ($passthrough||$content||$flush_before) | ||
| 205 | ? [ $evt, $collector ] | ||||||
| 206 | : $collector; | ||||||
| 207 | 139 | 912 | }; | ||||
| 208 | } | ||||||
| 209 | |||||||
| 210 | sub collect_content { | ||||||
| 211 | 3 | 3 | 1 | 8 | my ($self, $options) = @_; | ||
| 212 | 3 | 50 | 8 | $self->collect({ %{$options||{}}, content => 1 }) | |||
| 3 | 28 | ||||||
| 213 | } | ||||||
| 214 | |||||||
| 215 | sub add_before { | ||||||
| 216 | 3 | 3 | 1 | 14 | my ($self, $events) = @_; | ||
| 217 | 3 | 16 | my $coll_proto = $self->collect({ passthrough => 1 }); | ||||
| 218 | sub { | ||||||
| 219 | 3 | 3 | 13 | my $emit = $self->_stream_from_proto($events); | |||
| 220 | 3 | 12 | my $coll = &$coll_proto; | ||||
| 221 | 3 | 50 | 10 | if($coll) { | |||
| 222 | 3 | 50 | 52 | if(ref $coll eq 'ARRAY') { | |||
| 0 | |||||||
| 223 | 3 | 36 | my $firstbit = $self->_stream_from_proto([$coll->[0]]); | ||||
| 224 | 3 | 17 | return $self->_stream_concat($emit, $firstbit, $coll->[1]); | ||||
| 225 | } elsif(ref $coll eq 'HASH') { | ||||||
| 226 | 0 | 0 | return [$emit, $coll]; | ||||
| 227 | } else { | ||||||
| 228 | 0 | 0 | return $self->_stream_concat($emit, $coll); | ||||
| 229 | } | ||||||
| 230 | 0 | 0 | } else { return $emit } | ||||
| 231 | } | ||||||
| 232 | 3 | 22 | } | ||||
| 233 | |||||||
| 234 | sub add_after { | ||||||
| 235 | 3 | 3 | 1 | 15 | my ($self, $events) = @_; | ||
| 236 | 3 | 14 | my $coll_proto = $self->collect({ passthrough => 1 }); | ||||
| 237 | sub { | ||||||
| 238 | 3 | 3 | 8 | my ($evt) = @_; | |||
| 239 | 3 | 9 | my $emit = $self->_stream_from_proto($events); | ||||
| 240 | 3 | 14 | my $coll = &$coll_proto; | ||||
| 241 | 3 | 50 | 20 | return ref($coll) eq 'HASH' # single event, no collect | |||
| 242 | ? [ $coll, $emit ] | ||||||
| 243 | : [ $coll->[0], $self->_stream_concat($coll->[1], $emit) ]; | ||||||
| 244 | 3 | 29 | }; | ||||
| 245 | } | ||||||
| 246 | |||||||
| 247 | sub prepend_content { | ||||||
| 248 | 6 | 6 | 1 | 21 | my ($self, $events) = @_; | ||
| 249 | 6 | 36 | my $coll_proto = $self->collect({ passthrough => 1, content => 1 }); | ||||
| 250 | sub { | ||||||
| 251 | 6 | 6 | 13 | my ($evt) = @_; | |||
| 252 | 6 | 18 | my $emit = $self->_stream_from_proto($events); | ||||
| 253 | 6 | 100 | 32 | if ($evt->{is_in_place_close}) { | |||
| 254 | 1 | 8 | $evt = { %$evt }; delete @{$evt}{qw(raw is_in_place_close)}; | ||||
| 1 | 3 | ||||||
| 1 | 4 | ||||||
| 255 | 1 | 5 | return [ $evt, $self->_stream_from_array( | ||||
| 256 | $emit->next, { type => 'CLOSE', name => $evt->{name} } | ||||||
| 257 | ) ]; | ||||||
| 258 | } | ||||||
| 259 | 5 | 10 | my $coll = &$coll_proto; | ||||
| 260 | 5 | 23 | return [ $coll->[0], $self->_stream_concat($emit, $coll->[1]) ]; | ||||
| 261 | 6 | 56 | }; | ||||
| 262 | } | ||||||
| 263 | |||||||
| 264 | sub append_content { | ||||||
| 265 | 3 | 3 | 1 | 13 | my ($self, $events) = @_; | ||
| 266 | 3 | 16 | my $coll_proto = $self->collect({ passthrough => 1, content => 1 }); | ||||
| 267 | sub { | ||||||
| 268 | 3 | 3 | 7 | my ($evt) = @_; | |||
| 269 | 3 | 9 | my $emit = $self->_stream_from_proto($events); | ||||
| 270 | 3 | 50 | 18 | if ($evt->{is_in_place_close}) { | |||
| 271 | 0 | 0 | $evt = { %$evt }; delete @{$evt}{qw(raw is_in_place_close)}; | ||||
| 0 | 0 | ||||||
| 0 | 0 | ||||||
| 272 | 0 | 0 | return [ $evt, $self->_stream_from_array( | ||||
| 273 | $emit->next, { type => 'CLOSE', name => $evt->{name} } | ||||||
| 274 | ) ]; | ||||||
| 275 | } | ||||||
| 276 | 3 | 8 | my $coll = &$coll_proto; | ||||
| 277 | 3 | 10 | return [ $coll->[0], $self->_stream_concat($coll->[1], $emit) ]; | ||||
| 278 | 3 | 24 | }; | ||||
| 279 | } | ||||||
| 280 | |||||||
| 281 | sub replace { | ||||||
| 282 | 114 | 114 | 1 | 310 | my ($self, $replace_with, $options) = @_; | ||
| 283 | 114 | 264 | my $coll_proto = $self->collect($options); | ||||
| 284 | sub { | ||||||
| 285 | 115 | 115 | 180 | my ($evt, $stream) = @_; | |||
| 286 | 115 | 298 | my $emit = $self->_stream_from_proto($replace_with); | ||||
| 287 | 115 | 450 | my $coll = &$coll_proto; | ||||
| 288 | # if we're replacing the contents of an in place close | ||||||
| 289 | # then we need to handle that here | ||||||
| 290 | 115 | 100 | 100 | 701 | if ($options->{content} | ||
| 66 | |||||||
| 291 | && ref($coll) eq 'HASH' | ||||||
| 292 | && $coll->{is_in_place_close} | ||||||
| 293 | ) { | ||||||
| 294 | 3 | 11 | my $close = $stream->next; | ||||
| 295 | # shallow copy and nuke in place and raw (to force smart print) | ||||||
| 296 | 3 | 25 | $_ = { %$_ }, delete @{$_}{qw(is_in_place_close raw)} for ($coll, $close); | ||||
| 6 | 53 | ||||||
| 297 | 3 | 11 | $emit = $self->_stream_concat( | ||||
| 298 | $emit, | ||||||
| 299 | $self->_stream_from_array($close), | ||||||
| 300 | ); | ||||||
| 301 | } | ||||||
| 302 | # For a straightforward replace operation we can, in fact, do the emit | ||||||
| 303 | # -before- the collect, and my first cut did so. However in order to | ||||||
| 304 | # use the captured content in generating the new content, we need | ||||||
| 305 | # the collect stage to happen first - and it seems highly unlikely | ||||||
| 306 | # that in normal operation the collect phase will take long enough | ||||||
| 307 | # for the difference to be noticeable | ||||||
| 308 | return | ||||||
| 309 | 115 | 100 | 606 | ($coll | |||
| 100 | |||||||
| 50 | |||||||
| 310 | ? (ref $coll eq 'ARRAY' # [ event, stream ] | ||||||
| 311 | ? [ $coll->[0], $self->_stream_concat($coll->[1], $emit) ] | ||||||
| 312 | : (ref $coll eq 'HASH' # event or stream? | ||||||
| 313 | ? [ $coll, $emit ] | ||||||
| 314 | : $self->_stream_concat($coll, $emit)) | ||||||
| 315 | ) | ||||||
| 316 | : $emit | ||||||
| 317 | ); | ||||||
| 318 | 114 | 933 | }; | ||||
| 319 | } | ||||||
| 320 | |||||||
| 321 | sub replace_content { | ||||||
| 322 | 76 | 76 | 1 | 522 | my ($self, $replace_with, $options) = @_; | ||
| 323 | 76 | 50 | 102 | $self->replace($replace_with, { %{$options||{}}, content => 1 }) | |||
| 76 | 594 | ||||||
| 324 | } | ||||||
| 325 | |||||||
| 326 | sub repeat { | ||||||
| 327 | 18 | 18 | 1 | 54 | my ($self, $repeat_for, $options) = @_; | ||
| 328 | 18 | 40 | $options->{into} = \my @into; | ||||
| 329 | 18 | 34 | my @between; | ||||
| 330 | 18 | 41 | my $repeat_between = delete $options->{repeat_between}; | ||||
| 331 | 18 | 100 | 59 | if ($repeat_between) { | |||
| 332 | $options->{filter} = sub { | ||||||
| 333 | 2 | 2 | 21 | $_->select($repeat_between)->collect({ into => \@between }) | |||
| 334 | } | ||||||
| 335 | 2 | 9 | } | ||||
| 336 | my $repeater = sub { | ||||||
| 337 | 18 | 18 | 54 | my $s = $self->_stream_from_proto($repeat_for); | |||
| 338 | # We have to test $repeat_between not @between here because | ||||||
| 339 | # at the point we're constructing our return stream @between | ||||||
| 340 | # hasn't been populated yet - but we can test @between in the | ||||||
| 341 | # map routine because it has been by then and that saves us doing | ||||||
| 342 | # the extra stream construction if we don't need it. | ||||||
| 343 | 18 | 31 | $self->_flatten_stream_of_streams(do { | ||||
| 344 | 18 | 100 | 191 | if ($repeat_between) { | |||
| 345 | $s->map(sub { | ||||||
| 346 | 5 | 22 | local $_ = $self->_stream_from_array(@into); | ||||
| 347 | 5 | 100 | 66 | 42 | (@between && $s->peek) | ||
| 348 | ? $self->_stream_concat( | ||||||
| 349 | $_[0]->($_), $self->_stream_from_array(@between) | ||||||
| 350 | ) | ||||||
| 351 | : $_[0]->($_) | ||||||
| 352 | }) | ||||||
| 353 | 2 | 23 | } else { | ||||
| 354 | $s->map(sub { | ||||||
| 355 | 39 | 107 | local $_ = $self->_stream_from_array(@into); | ||||
| 356 | 39 | 186 | $_[0]->($_) | ||||
| 357 | }) | ||||||
| 358 | 16 | 142 | } | ||||
| 359 | }) | ||||||
| 360 | 18 | 89 | }; | ||||
| 361 | 18 | 69 | $self->replace($repeater, $options); | ||||
| 362 | } | ||||||
| 363 | |||||||
| 364 | sub repeat_content { | ||||||
| 365 | 15 | 15 | 1 | 69 | my ($self, $repeat_for, $options) = @_; | ||
| 366 | 15 | 100 | 24 | $self->repeat($repeat_for, { %{$options||{}}, content => 1 }) | |||
| 15 | 137 | ||||||
| 367 | } | ||||||
| 368 | |||||||
| 369 | 1; | ||||||
| 370 | |||||||
| 371 | =head1 NAME | ||||||
| 372 | |||||||
| 373 | HTML::Zoom::FilterBuilder - Add Filters to a Stream | ||||||
| 374 | |||||||
| 375 | =head1 SYNOPSIS | ||||||
| 376 | |||||||
| 377 | Create an L |
||||||
| 378 | |||||||
| 379 | use HTML::Zoom; | ||||||
| 380 | my $root = HTML::Zoom | ||||||
| 381 | ->from_html(< | ||||||
| 382 | |||||||
| 383 | |||||||
| 384 | |
||||||
| 385 | |||||||
| 386 | |||||||
| 387 | Default Content | ||||||
| 388 | |||||||
| 389 | |||||||
| 390 | MAIN | ||||||
| 391 | |||||||
| 392 | Create a new attribute on the C tag: | ||||||
| 393 | |||||||
| 394 | $root = $root | ||||||
| 395 | ->select('body') | ||||||
| 396 | ->set_attribute(class=>'main'); | ||||||
| 397 | |||||||
| 398 | Add a extra value to an existing attribute: | ||||||
| 399 | |||||||
| 400 | $root = $root | ||||||
| 401 | ->select('body') | ||||||
| 402 | ->add_to_attribute(class=>'one-column'); | ||||||
| 403 | |||||||
| 404 | Set the content of the C |
||||||
| 448 | |||||||
| 449 | |
||||||
| 450 | Well Now |
||||||
| 451 | Is the Time |
||||||
| 452 | |||||||
| 453 | |||||||
| 454 |