# note - see attributes(3pm)
sub MODIFY_CODE_ATTRIBUTES {
my ( $class, $code, @attrs ) = @_;
- $class->_attr_cache->{$code} = [@attrs];
- push @{ $class->_action_cache }, [ $code, [@attrs] ];
+ $class->_attr_cache({ %{$class->_attr_cache}, $code => [@attrs] });
+ $class->_action_cache([ @{$class->_action_cache}, [ $code, [@attrs] ] ]);
return ();
}