YappoLogs: PerlのAttributeについてのお勉強

PerlのAttributeについてのお勉強 このエントリの内容は結構適当です。 今更ですがCatalystなどで使われているattributeに興味を持ったので調べてみた。 やや日本人向けははてな勉強会の資料などにもあります。 今回は、関数のattributeについて。SCALARとかARRAYとかHASHはスルーです。 あと、モジュールなperlではやってません。超シンプルです。 今のPerlでは sub foo : baz {}のように記述出来ますが、通常ではエラーになってしまうのです。 デフォルトで対応しているattributesは(lvalue|method|locked|unique|shared)のみらしいので、bazは対応してないのでエラーが出ます。 perldocを見るとMODIFY_CODE_ATTRIBUTESって関数でattributesの処理をしているそうなので、

[takkunn1611]

YappoLogs

[kiyo_hiko]

メモ：「sub MODIFY_CODE_ATTRIBUTES{my($pkg,$fun,＠attrs)=＠_;print"Begin function:名前\n"if grep{$_ eq'loggable'}＠attrs;return}sub test:loggable{}test」　サンプルコードは時間が豊富なときに拝見する

[msakamoto-sf]

attribute

[clairvy]

これで sub の attributes はなんとなくわかった気になる

[hassylin]

sub xxx :yyy() なアトリビュートを扱う方法(もづくもあとで読む)

[lesamoureuses]

Catarlyst用に勉強

[okuharakensuke]

実践コード付き。

[k1m]

MODIFY_CODE_ATTRIBUTES でサブルーチン実行毎になにかする

[Qma]

attribute

[kdaiba]

attribute

[nipotan]

Attribute