my ($into, $passthrough, $inside) = @{$options}{qw(into passthrough inside)};
sub {
my ($evt, $stream) = @_;
- push(@$into, $evt) if $into && !$inside;
+ # We wipe the contents of @$into here so that other actions depending
+ # on this (such as a repeater) can be invoked multiple times easily.
+ # I -suspect- it's better for that state reset to be managed here; if it
+ # ever becomes painful the decision should be revisited
+ if ($into) {
+ @$into = $inside ? () : ($evt);
+ }
if ($evt->{is_in_place_close}) {
return $evt if $passthrough || $inside;
return;
sub add_after {
my ($self, $events) = @_;
+ my $coll_proto = $self->collect({ passthrough => 1 });
sub {
my ($evt) = @_;
my $emit = $self->_stream_from_array(@$events);
- my $coll = $self->collect({ passthrough => 1 })->(@_);
+ my $coll = &$coll_proto;
return ref($coll) eq 'HASH' # single event, no collect
? [ $coll, $emit ]
: [ $coll->[0], $self->_stream_concat($coll->[1], $emit) ];
sub append_inside {
my ($self, $events) = @_;
+ my $coll_proto = $self->collect({ passthrough => 1, inside => 1 });
sub {
my ($evt) = @_;
if ($evt->{is_in_place_close}) {
@$events, { type => 'CLOSE', name => $evt->{name} }
) ];
}
- my $coll = $self->collect({ passthrough => 1, inside => 1 })->(@_);
+ my $coll = &$coll_proto;
my $emit = $self->_stream_from_array(@$events);
return [ $coll->[0], $self->_stream_concat($coll->[1], $emit) ];
};
sub replace {
my ($self, $events, $options) = @_;
+ my $coll_proto = $self->collect($options);
sub {
my ($evt, $stream) = @_;
my $emit = $self->_stream_from_array(@$events);
- my $coll = $self->collect($options)->(@_);
+ my $coll = &$coll_proto;
# For a straightforward replace operation we can, in fact, do the emit
# -before- the collect, and my first cut did so. However in order to
# use the captured content in generating the new content, we need