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
![perl - 勝手に添削 - HTTP::MobileUserID::Japanese : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)