my $self = shift;
my $attr = $self->_parse_attribute_args(@_);
sub {
-
my $a = (my $evt = $_[0])->{attrs};
- my @kupd = grep {exists $a->{$_}} keys %$attr;
+{ %$evt, raw => undef, raw_attrs => undef,
attrs => {
%$a,
#TODO needs to support multiple removes
map { my $tar = $_; $_ => join ' ',
- map {$attr->{$tar} ne $_} split ' ', $a->{$_} } @kupd
+ map {$attr->{$tar} ne $_} split ' ', $a->{$_} }
+ grep {exists $a->{$_}} keys %$attr
},
}
};