diff options
Diffstat (limited to 't/op/attrs.t')
| -rw-r--r-- | t/op/attrs.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 8e04936f8d..1ed92a1a8d 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -180,6 +180,14 @@ eval 'package A; sub X { $_[0] } sub X : lvalue'; mytest '', "@attrs", "lvalue"; BEGIN {++$ntests} +# Above not with just 'pure' built-in attributes. +sub Z::MODIFY_CODE_ATTRIBUTES { (); } +eval 'package Z; sub L { $_[0] } sub L : Z lvalue'; +@attrs = eval 'attributes::get \&Z::L'; +mytest '', "@attrs", "lvalue Z"; +BEGIN {++$ntests} + + # Begin testing attributes that tie { |