2007年05月06日01:45 カテゴリLightweight Languages perl - 勝手に添削 - HTTP::MobileUserID::Japanese Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] 今回は、こちら。 Unknown::Programming - 携帯のユーザーIDを取得する use base qw/Class::Data::Accessor/; __PACKAGE__->mk_classaccessors(qw/agent user_id/); # ... sub is_support { shift->{support} } sub is_not_support { !shift->{support} } sub is_exists { shift->{user_id} } sub is_n