404 motivation not found | t_ishidaのブログ

12月/07

11

Sex.pm

Perl teaches the birds and the bees.

鳥さんと、ハチさんについて教えてくれる、

Perlモジュールみたいです。

http://search.cpan.org/~mschwern/Sex-0.69/Sex.pm

多分、こういう使い方。

package Human::Man;
sub new{  bless { hasCock => 1 }   }
sub Cock : lvalue { shift->{hasCock} }

package Human::Woman;
sub new         { bless { hasPussy=> 1 }}
sub Pussy:lvalue{ shift->{hasPussy} }

package Human::Baby
use Sex qw(Human::Man Human::Woman);
sub new{ $obj = { hasCock=>int(rand) }; $obj->{hasCock} or $obj->{hasPussy}= 1; bless $obj; }

将来的には、CPANモジュール全体に性別を付けて、

同じ性別同士のSexだと子供が、

特徴を継承しないようにする機能を追加するプラグインを

作りたいかも知れないし、作りたくないかも知れない。

Share and Enjoy:
  • Digg
  • del.icio.us
  • Google Bookmarks
  • Tumblr
  • email
  • Facebook
  • FriendFeed

RSS Feed

コメントはまだありません。

Leave a comment!

<< どう書く?

石田が考える「次世代コミュニケーション」もとい「Web2.1」の姿 >>

Find it!

Theme Design by devolux.org

Tag Cloud