2007年04月24日00:45 カテゴリLightweight Languages perl - POO と goto というわけで、本番。 404 Blog Not Found:perl - 万能なnewの書き方 ここからが面白くなるのだが次のEntryへ譲るここに着目していただきたい。 sub init { my $self = shift; $self->{$_} = $default{$_} for keys %default; $self->SUPER::init(); } 初期化に限らず、自分で何かをしたら次のメソッドに振るというのは、OOでは非常によく見られる光景だ。特にpluginなどを使っている場合、それが著しい。 しかし、このコード、次のメソッドに振っているのはいいのだけど、振ってから戻ってくるのだ。メソッド呼び出しも関数呼び出しに過ぎないのだから、当然といえば当然だ
『PerlのCPANモジュールに学ぶオブジェクトデザインパターン』第3弾としてPickles::ContainerからFlyweightパターンを読み取ります。 問題:毎回同じインスタンスを生成している 前回の『PerlのCPANモジュールObject::ContainerにみるSingletonパターン』で述べた問題と同じような問題を想定します。 せっかくなので、今回は具体例を厚くしてみます。例えば、オレオレ環境に即したHTTPクライアントとしてLWP::UserAgentの設定を書いて、いろんなところで使いたいと思います。 #search.cpan.orgの検索結果を取得するクラス package Scraper::SerpSearchCPAN; use strict; use warnings; use LWP::UserAgent; use HTTP::Cookies; sub g
perlhttp://perldoc.jp/docs/modules/Class-Data-Inheritable-0.02/Inheritable.podhttp://anond.hatelabo.jp/20071101181442anondの説明は文体が寒かったのでコードにメモしとく（役に立ちました。ありがとうございます）。 package Class::Data::Inheritable; use strict qw(vars subs); # -- refs使う use vars qw($VERSION); # -- 5.005以下に配慮 $VERSION = '0.08'; sub mk_classdata { my ($declaredclass, $attribute, $data) = @_; # -- クラスメソッドとして呼ばれなかったらcroak if( ref $de
唐突にClass::Data::Inheritableのソースコードについて説明してやんよ。 使い方とかの説明はこの辺でも読んでから出直して来い、ごるぁ！ まぁとりあえずソース見てみろ、下記にはっつけてやっからよぉ！ 1: package Class::Data::Inheritable; 2: 3: use strict qw(vars subs); 4: use vars qw($VERSION); 6: $VERSION = '0.06'; 7: 8: sub mk_classdata { 9: my ($declaredclass, $attribute, $data) = @_; 10: 11: if( ref $declaredclass ) { 12: require Carp; 13: Carp::croak("mk_classdata() is a class metho
I maintain the Class::Accessor module. It appears to be used a lot, but the API is a bit ugly. In YAPC::Asia the ugly API was criticised in at least three different talks, and each time it was compared to the fashionable Moose API. In one of these talks JRockway asked Shawn Moore how to turn a bad API into a good API, so I’m going to try that: adding antlers to Class::Accessor! So now instead of w
Moose/Class::MOP開発スポンサー (JPA Sponsors Moose/Class::MOP Work)の報告です。 まずは現状ですが，Moose 0.90/Class::MOP 0.93のロード時間が約176msであるのに対し，ベースラインとしたMoose 0.88/Class::MOP 0.89のロード時間が約209msであるので，約18%高速になっています。当初の目的が20%以上であるので，目標値には達しなかったことになります。しかし，現状では作成中のブランチすべてが取り込まれたわけではないため，ゆくゆくはさらに高速になる見込みです。 今回行った高速化に大きく寄与したのは次の二点です。 ボトルネックであったget_method_map()をできるだけ使わないようにした(C::MOP) C::MOPが生成するコードの一部を手で展開し，実行時evalを減らした(C::MO
動的型付け言語と静的型付け言語における多態性 オブジェクト指向では、多態性（ポリモーフィズム）という発想がでてくる。この多態性を実現する方法を今回は2つ紹介する。 Perlは動的型付け言語であり、ダックタイピングという手法で、多態性を実現できる。対して、静的型付け言語であるJavaでは上位の型を作ることで多態性を実現できる（今回はインタフェースを用いてみた）。 多態性を用いればif文がなくなるなどの恩恵を受ける事ができる。 （今回はこのif文がなくなる場面については説明はしない） ダックタイピング Perlでのタックタイピングを見てみよう。 my $human = Human->new(); my $duck = Duck->new(); my $dog = Dog->new(); $human->touch($duck); $human->touch($dog); いま、このようにhum
Apr 11, 2009Download as PPT, PDF0 likes497 views
おまえは何を言っているんだみたいな話だったらすみません。 たとえば，foo() という関数を export している ModA というモジュールがあるとします。 package ModA; use strict; use warnings; use base qw( Exporter ); our @EXPORT = qw( foo ); sub foo { warn sprintf '%s::foo called', __PACKAGE__; } 1; こいつをたとえば #!/usr/bin/perl use strict; use warnings; use ModA; foo(); のように使うと， ModA::foo called at ModA.pm line 12.のように出ます。 ここまでは当たり前。 use ModB したら ModA::foo() を呼び出せるようにしたい
2007年04月23日22:45 カテゴリLightweight Languages perl - 万能なnewの書き方 Perl 5のOOは、慣れてしまうと簡単だ。 継承とか考えずに、普通にクラスを作りたければ、必要なのは以下の二行だけ。 package Klass; sub new { bless {} }; これだけでは何もできないので、とりあえずnameというアクセサーを追加してみる。これだけ。 sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } しかし、上の形式だと、継承をサポートしていない。だから、 package Klass; sub new { bless {} }; package Klass::Sub; our @ISA = qw/Klass/; # new
モダンなクラス／オブジェクトのあり方は？ Perlではそもそもオブジェクトという考え方自体が、Perl 5（Perl 7歳）ではじめて登場した、後付けのものでした。また、その実装も非常におおらかなものだったため、より「本格的な」オブジェクト機構を備えた言語のユーザからはしばしば批判されてきました。 ただし、転んでもただでは起きないのがPerlハッカーたちのよいところ。そのような批判を糧に、「モダンPerl」の世界でもっとも激しく、多様に進化してきたのがこの分野です。 今回はそのようなクラス／オブジェクトの進化の一例として、クラスの継承とメソッドの解決順序にまつわる話題をまとめていきます。 継承によるクラスの拡張 伝統的なbaseプラグマを使ってクラスを拡張する場合、継承元と継承先に同名のメソッドがあれば継承先のメソッドだけが優先的に実行されます。 use strict; use warn
LL温泉2008用の資料です。 最近の Perl OOP のこと。 Perl5 の OOP と簡単なモジュールのつくりかた。 Perl5 についての見解 Perl5 の OOP はむずかしい。 昔ながらの Perl5 OOP package Person; # クラス宣言 use strict; use warnings; sub new { my ($class) = @_; return bless { name => '', age => undef, }, $class; } sub name { my ($self, $name) = @_; $self->{'name'} = $name if $name; return $self->{'name'}; } sub age { my ($self, $age) = @_; $self->{'age'} = $age if $a
Inside Perl5 OO 対象読者： 他の言語で OO したことあるっぽいひと/Perl4 でとまってるひと Class をつくる まずは点クラスをつくってみましょう package Point; sub new { my ($class, %args) = @_; # 第１引数はクラス名 bless({%args}, $class); # データを bless すると、オブジェクトになる } sub x { my $self = shift; # 第１引数は、インスタンス $self->{x} = shift if @_; # 引数があればセッター扱いになる $self->{x}; } sub y { my $self = shift; $self->{y} = shift if @_; $self->{y}; } このようにして作ったクラスは、下記のようにして呼び出すことができま
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く