in reply to Code ref inside around modifier

To see what's going on, I'd initialize a B::Deparse object inside the around method and run a $dp->coderef2text($orig). Maybe there's an additional wrapper around the original $orig. Can't say more, since I haven't use Moose and/or Class::MOP yet.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

In Section Seekers of Perl Wisdom