モダンPerlの世界へようこそ

第3回　Moose::Role：役割単位のクラス分け

2009年3月23日

石垣憲一

Perl, モダンPerl, Moose, Exporter, Class::MOP, ロール

with, メソッド, Perl, オブジェクト, Class

多重継承しないほうがよい場合

前回は多重継承を利用してクラスを拡張するときにありがちな問題と，そのひとつの解決策を見てきましたが，クラスにいくつかのメソッドを追加したいだけであれば，むしろ継承を利用しないほうがふさわしい場合もあります。

たとえば「コウモリ」というクラスを実装するとき，「乳を出す」というメソッドのために「ほ乳類」というクラスを，「空を飛ぶ」というメソッドのために「鳥類」というクラスを継承するのは――たしかにそれで当座の問題は解決するかもしれませんが――違和感が残ります。

use strict;
use warnings;
use Test::More tests => 4;

package Mammal;
sub new { bless {}, shift; }
sub produce_milk { print "I can produce milk.\n"; }

package Bird;
sub new { bless {}, shift; }
sub fly { print "I can fly.\n"; }

package Bat;
use base qw(Mammal Bird);

package main;

my $bat = Bat->new;

can_ok($bat => 'produce_milk'); # ok
can_ok($bat => 'fly');          # ok
ok($bat->isa('Mammal'));        # ok
ok($bat->isa('Bird'));          # ok でも，コウモリは本当に鳥類ですか!?

このような多重継承によるメソッド拡張の問題をPerlの世界ではどう解消してきたのか。今回は，その問題を追いかけていきましょう。

Exporterを使った解決策とその問題点

さて，上の例の場合，コウモリはほ乳類ですから，BatクラスとMammalクラスは純粋に「is a」の関係にあります。だから，問題となるのは，Batクラスに（Birdクラスと共通の）flyメソッドを追加する部分だけです。

Perl 5の場合，メソッドとサブルーチンに実質的な差はありません。よそで定義されたサブルーチンを取り込む方法としては，コアに入っているExporterモジュールとimportメソッドを使うのが古典的な手法でした。

use strict;
use warnings;
use Test::More tests => 4;

package Mammal;
sub new { bless {}, shift; }
sub produce_milk { print "I can produce milk.\n"; }

package Bird;
use base 'Exporter';
our @EXPORT_OK = qw(fly);
sub new { bless {}, shift; }
sub fly { print "I can fly.\n"; }

package Bat;
Bird->import('fly');  # use Bird 'fly';
use base 'Mammal';

package main;

my $bat = Bat->new;

can_ok($bat => 'produce_milk'); # ok
can_ok($bat => 'fly');          # ok
ok($bat->isa('Mammal'));        # ok
ok(!$bat->isa('Bird'));         # ok コウモリは鳥類ではなくなりました

そもそも鳥類の「飛ぶ能力」はほ乳類に貸し出せるようなものなのか？　とか，コウモリは鳥類を使役（use）するから飛べるというのは論理的におかしくないか？　という根本的な疑問を別にすれば，これでひとまずうまくいくように見えます。

でも，Birdクラスが，たとえばこうなっていたら，どうでしょう。

package Bird;
use base 'Exporter';
our @EXPORT_OK = qw(fly);
sub new { bless {}, shift; }
sub fly_with { 'wings'; }
sub fly {
    my $self = shift;
    print "I can fly with ".$self->fly_with.".\n";
}

こう変えても，先ほどのテストの範囲内ではうまく飛べるように見えます。でも，実際にコウモリを飛ばそうとすると，「Can't locate object method "fly_with" via package "Bat" 」という実行時エラーが発生します（BatはMammalしか継承していませんので，当然Birdクラスのfly_withメソッドは引き継がれません）。

このような欠点があることから，前回も登場したダミアン・コンウェイ氏が，Perl 6の設計が始まった2000年に刊行した著書『オブジェクト指向Perlマスターコース』の中では，Exporterを利用する手法はばっさりと切り捨てられていました。

Exporterモジュールとimportサブルーチンは通常のPerlにおいては重要であるが、オブジェクト指向Perlではほとんど使用されない。これは、クラスから変数またはサブルーチンをエクスポートすることがオブジェクト指向のカプセル化原理に反するためである。

山根ドキュメンテーション訳p.76

Perl, モダンPerl, Moose, Exporter, Class::MOP, ロール

石垣憲一（いしがきけんいち）

あるときは翻訳家。あるときはPerlプログラマ。先日『カクテルホントのうんちく話』（柴田書店）を上梓。最新刊は『ガリア戦記』（平凡社ライブラリー）。

URL：http://d.hatena.ne.jp/charsbar/

モダンPerlの世界へようこそ

バックナンバー一覧

このエントリのトラックバック URI

お名前
メールアドレス
タイトル
コメント

多数の情報処理技術者試験対策書籍の発行実績を誇る技術評論社がお届けする，資格試験合格サイト「めざせ！情報処理試験パスサポ」が開設されました。

サクセスストーリーに続く，快適サーバー運用管理のヒント！: データの増大，煩雑な管理，システムダウン，セキュリティなど，迫りくる課題からシステム管理者の負担を軽くするポイントを解説します。
gihyo.jp インフラエンジニア情報局: ネットワークやITにかかわるあらゆる業種で必要とされるインフラエンジニアに向けた技術情報や心構え，その魅力について多角的に紹介。
テストエンジニアステーション: いま，ITに関わるあらゆる開発業務で注目されつつあるテスト系エンジニアをターゲットにしたコンテンツサイトを展開します。

※検索はページ右上の検索ボックスをご利用ください。

最新ソフトウェアプロテクションの導入方法（3/8～4/16）
Adobe FLASH PLATFORM CAMP Tokyo（3/16）
「組込みデータベースを利用した開発のポイントとDeviceSQLのご紹介」セミナー（3/17）

Ubuntu Weekly Recipe: Ubuntuの強力なデスクトップ機能を活用するための，いろいろなレシピをお届けします。
C/C++プログラマのためのDTrace入門: よくカーネルのチューニングや解析で活用されるDTraceですが，実はユーザプログラムの開発においても非常に有用です。連載ではC/C++プログラマやテストに関わる方向けにDTraceの使い方を解説します。
Blogopolisから学ぶ計算幾何: 計算幾何学は，図形に関するアルゴリズムを研究するコンピュータサイエンスの一分野です。本連載では，ビジュアルブログ検索エンジン「Blogopolis」で採用されている計算幾何のアプローチを例に取り上げながら，計算幾何の初歩を実践的に学習します。
検索エンジンはいかにして動くのか？: 本連載では, 今や誰もが利用している検索エンジンの中身を，全体の仕組みやデータ構造，アルゴリズムから分散インデックスまで，最近の研究事例も交えて紹介します。
サイエンスに片思い: 本連載では，サイエンスという学問を軸に，そこから広がる可能性やつながり，そしてWebの世界との関係について，前田邦宏氏がさまざまな取材を元に考察し，これからの可能性について展望します。
使ってみよう！ Windows Live SDK/API: Windows Liveサービスの一部にはAPIやSDKとして提供されているものがあります。本連載では各API・SDKの紹介とそれらを利用したアプリケーションを開発していきます。
Lifelog～毎日保存したログから見えてくる個性: コンピュータを使って，日常のさまざまなことの記録（ログ）をとり，それを分析して活用することで，もう一段階上の「楽な生活」をめざす日々の研究報告です。
もっと便利に！jQueryでラクラクサイト制作（実践サンプル付き）: 本連載では，実践サンプルとともに，jQueryを上手に活用してサイト制作の品質向上・効率化を実現するための実践テクニックを解説します。