diff --git a/src/core/traits.pm b/src/core/traits.pm index 38710283e8c..bee817c95e7 100644 --- a/src/core/traits.pm +++ b/src/core/traits.pm @@ -9,9 +9,16 @@ proto trait_mod:(|$) { * } multi trait_mod:(Mu:U $child, Mu:U $parent) { $child.HOW.add_parent($child, $parent); } +multi trait_mod:(Mu:U $type, :$rw!) { + $type.HOW.set_rw($type); +} + multi trait_mod:(Attribute:D $attr, :$rw!) { $attr.set_rw(); } +multi trait_mod:(Attribute:D $attr, :$readonly!) { + $attr.set_readonly(); +} multi trait_mod:(Routine:D $r, :$rw!) { $r.set_rw();