Test::Vars ã®è§£èª¬ãå°ãã ãã Perlã®æ§ææ¨ãæ©ãåãã«ã¯ãB::walkoptree()ãB::walkoptree_exec()ã使ãã åºæ¬çãªããæ¹ã¯ä»¥ä¸ã®éãã§ããã #!perl -w use strict; use feature 'say'; use B; my $cv = B::svref_2object(sub{ $_[0] + 42 }); local *B::OP::visit; *B::OP::visit = sub { my($op) = @_; say $op->name; }; say "<walkoptree>"; B::walkoptree($cv->ROOT, 'visit'); say "<walkoptree_exec>"; B::walkoptree_exec($cv->START, 'visit'); __END__ B::svr
{{#tags}}- {{label}}
{{/tags}}