今回のテーマ
前回は,
サンプルアプリケーション
本連載では,
svn co -r 659 http://svn.coderepos.org/share/lang/perl/Gopper/trunk Gopper
パッケージ固有のattribute実装
Perlのattributeに関しては前回の記事を参照してください。今回はPerlのattributeで利用できるMODIFY_
attributeを独自に定義する為に
attributeを独自に定義するには,
attributeは,
正しい例
# test.pl
use strict;
use warnings;
BEGIN { print "B:1\n" }
sub MODIFY_CODE_ATTRIBUTES {
print "MODIFY_CODE_ATTRIBUTES\n";
return;
}
BEGIN { print "B:2\n" }
sub test: hoge {}
BEGIN { print "B:3\n" }
出力
$ perl ./test.pl
B:1
B:2
MODIFY_CODE_ATTRIBUTES
B:3
間違った例
# test2.pl
use strict;
use warnings;
BEGIN { print "B:1\n" }
sub test: hoge {} # あれ?MODIFY_CODE_ATTRIBUTESは?
BEGIN { print "B:2\n" }
sub MODIFY_CODE_ATTRIBUTES {
print "MODIFY_CODE_ATTRIBUTES\n";
return;
}
BEGIN { print "B:3\n" }
出力
$ perl ./test2.pl
B:1
Invalid CODE attribute: hoge at ./test2.pl line 6
BEGIN failed--compilation aborted at ./test2.pl line 6.
SCALAR / ARRAY / HASH に関しては,
# test3.pl
use strict;
use warnings;
sub MODIFY_SCALAR_ATTRIBUTES {
print "MODIFY_SCALAR_ATTRIBUTES\n";
return;
}
sub MODIFY_ARRAY_ATTRIBUTES {
print "MODIFY_ARRAY_ATTRIBUTES\n";
return;
}
sub MODIFY_HASH_ATTRIBUTES {
print "MODIFY_HASH_ATTRIBUTES\n";
return;
}
my $scalar : hoge ;
my @array : hoge ;
my %hash : hoge ;
出力
$ perl ./test3.pl
MODIFY_SCALAR_ATTRIBUTES
MODIFY_ARRAY_ATTRIBUTES
MODIFY_HASH_ATTRIBUTES
MODIFY_type_ATTRIBUTESの実装内容
MODIFY_
例えば下記のコードのような挙動になります。
sub hoge : attr1 attr2 attr3 {}
# 上のような宣言が有るときは,内部的に下記を実行
require attributes;
attributes->import( \&hoge, qw( attr1 attr2 attr3 ) );
この時のimportで渡される一つ目の引数のリファレンスの内容を見て,