2007-08-28から1日間の記事一覧

Sub::Name

NAME Sub::Name DESCRIPTION サブルーチンのリファレンスに名前をつけることができる。その名前で呼べるようにするのではなく、callerやCarpなどで使うための名前をつける。 SYNOPSYS Carpすると通常サブルーチンのリファレンスは__ANON__になるがsubnameし…

Class::Accessor::Named

NAME Class::Accessor::Named DESCRIPTION Class::Accessor/Class::Accessor::Fastで作成したサブルーチンにSub::NameとHook::LexWrapで名前をつけて、計測可能に。というのも、Class::Accessorで作成したアクセサはプロファイラなどでは、すべて__ANON__扱…

Hook::LexWrap

NAME Hook::LexWrap DESCRIPTION サブルーチンをレキシカルスコープでラッピング。 SYNOPSYS use strict; use warnings; use Hook::LexWrap; use Perl6::Say; sub hello { say 'hello, world!'; } say '-- wraped --'; SCOPED: { my $wrapped_hello = wrap '…