2008å¹´05月01æ—¥20:30 カテゴリLightweight Languages perl - ã§(Recall()|arguments.callee()|&?BLOCK()) Perl Coreã ã‘ã§åŒæ§˜ã®ã“ã¨ã‚’実装ã§ããªã„ã‹ã¨è€ƒãˆãŸã‚‰ã‚ã£ã•ã‚Šå‡ºæ¥ãŸã®ã§ã€‚ Perl 㧠JS ã® arguments.callee çš„ãªã“ã¨ã—よã†ã¨æ€ã£ã¦ãƒãƒžã£ãŸ - IT戦記 ãã‚ŒDevel::Caller ã§ã§ãるよ - TokuLog 改゠ã ã¾ã£ã¦ã‚³ãƒ¼ãƒ‰ã‚’書ã‘よãƒã‚² test run via codepad sub recallable_sub(&) { use B::Deparse; my $coderef = shift; my $src = B::Deparse->new->coderef2text($coderef); $src =~ s{\bRecall\s*\(}{\$coderef

{{#tags}}- {{label}}
{{/tags}}