2003-05-15から1日間の記事一覧
調子に乗って入れてみた。 cvsdのUmaskの設定で最初見れなかったけどそれ以外はおおむね調子よく動いてる模様。
cvsの設定ミスでした。 ださー
うわー何ですかこの便利具合は(笑) Perlのモジュールなんですがアクセサを超簡単に作成できます。 たとえばこんなモジュールがあったとしようじゃないですか。 package hoge; use strict; new { HOGE => 1, FUGA => 2 } で、これにアクセサを作ろうとすると…
メモ。 http://www.sea-bird.org/doc/Solaris8/Perl_2.html 一見すると複雑そうですよねー。 この手のテンプレート系のモジュールってプログラマブルに書きすぎるのもどうかなと最近は思ってます。 結局テンプレート作る人はデザイナーさんな訳ですし。
package Hoge; use strict; use base qw(Class::Accessor); Hoge->mk_accessors(qw(Fuga)); sub new { my $self = shift; bless { Fuga => Hoge::Fuga->new() },$self; } 1; __END__ - use Hoge; my $hoge = Hoge->new(); print $hoge->Fuga->gimyo(); こう…