Select Code to Download

my @attr = map {
    my $type = $_;
...
    map $self->${ \"stringify_$type" }( $op, $_ ),
        @{ "${type}_attributes" };
} qw( string number unhandled treeorder execorder );

use PadWalker qw( peek_my );

...
    map $self->${ \"stringify_$type" }( $op, $_ ),
        @{ peek_my( 0 )->{ "\@${type}_attributes" } || [] };
} qw( string number unhandled treeorder execorder );