run-time attributes::get issue

[GoogleCodeExporter]

What steps will reproduce the problem?

> perlcc -r -e 'our $anon1; eval q/$anon1 = sub : method { $_[0]++ }/; use 
attributes; @attrs = eval q/attributes::get $anon1/; print qq{ok\n} if "@attrs" 
eq "method"; print "@attrs"'

What is the expected output? What do you see instead?

> perl -e 'our $anon1; eval q/$anon1 = sub : method { $_[0]++ }/; use 
attributes; @attrs = eval q/attributes::get $anon1/; print qq{ok\n} if "@attrs" 
eq "method"; print "@attrs"'
ok
method

Please use labels and text to provide additional information.

Original issue reported on code.google.com by nicolas....@gmail.com on 23 Jan 2014 at 11:56

• Merged into: #169

[GoogleCodeExporter]

[deleted comment]

[GoogleCodeExporter]

Original comment by reini.urban on 27 Jan 2014 at 8:46

• Changed title: run-time attributes::get issue

[GoogleCodeExporter]

testcase added to issue #160 which handles Attribute::Handlers, which does 
run-time attribute evaluation

Original comment by reini.urban on 27 Jan 2014 at 8:47

• Changed state: Duplicate

[GoogleCodeExporter]

test changed with to avoid 760a965 eval.
attributes::get on this anon method works okay.

Original comment by reini.urban on 29 Aug 2014 at 1:30