Object Oriented Programming in Perl

Presentation on theme: "Object Oriented Programming in Perl"— Presentation transcript:

1 Object Oriented Programming in Perl
Tatsuhiko Miyagawa Edge, Co.,Ltd. / Shibuya Perl Mongers LL Saturday 2003

2 アジェンダ Perl OO Basic Perl OO Advanced 事例紹介 名前空間とbless 継承/デストラクタ
AUTOLOAD/overload Perl OO Advanced Design Patterns Mix-in, AOP 事例紹介

3 Perl OO Basic Object-oriented Perl is a small amount of additional syntax and semantics, added to the existing imperative features of the language. Damian Conway in “Object Oriented Perl”

4 クラス/オブジェクト package と bless クラスは名前空間(package)で定義 メソッドはクラス内のサブルーチン
package Dog; sub new { my($class, $name) bless { name => $name }, $class; } sub bark { my $self = shift; print “bark: $self->{name}”; use Dog; my $dog = Dog->new(‘Snoopy’); $dog->bark();

5 継承 @ISA 配列で表現(is-a) base プラグマ使用を推奨 多重継承も可能 package Animal; sub run {
my $self = shift; print “running!”; } package Dog; = qw(Animal); use base qw(Animal); sub bark { } use Dog; my $dog = Dog->new(‘Snoopy’); $dog->bark(); # Dog::bark $dog->run(); # Animal::run

6 デストラクタ DESTROYメソッド オブジェクト消滅時に実行 リファレンスカウンタ package Dog; sub DESTROY {
my $self = shift; print “$self->{name}: Bye!”; } use Dog; my $dog1 = Dog->new(‘Scooby’); { my $dog2 = Dog->new(‘Scrappy’); } ! Scrappy: Bye! ! Scooby: Bye!

7 AUTOLOAD 未定義メソッドをキャッチ アクセサの自動生成 メソッドのキャッシング・遅延ロード package Dog;
use vars qw($AUTOLOAD); my $accessors = { name => 1 }; sub AUTOLOAD { my $self = shift; (my $method = $AUTOLOAD) =~ s/.*://; return $self->{$method} if $accessors->{$method}; die “Unknown method: $method” } my $dog = Dog->new(‘Snoopy’); my $name = $dog->name();

8 演算子オーバーロード overload プラグマを使用 5.6以降は演算子が増えた fallback オプション package Dog;
sub new { my($class, $name, $weight) # … } use overload q(“”) => \&name, q(0+) => \&weight, fallback => 1; sub name { shift->{name} } sub weight { shift->{weight} } my $dog = Dog->new(“Snoopy”, 13.5); printf “name is %s, weight is %f”, $dog, $dog;

9 UNIVERSAL すべてのオブジェクトの祖先クラス can(), isa() を定義 can() はメソッドのリファレンスを返す
AUTOLOAD と併用すると … my $dog = Dog->new(); $dog->isa(‘Dog’); # true $dog->isa(‘Animal’); # true $dog->isa(‘Man’); # false my $bark = $dog->can(‘bark’); $man->$bark(); package UNIVERSAL; sub AUTOLOAD { my $self = shift; } すべてのクラスの未定義メソッドはここに!

10 public, private, protected
可視性 public, private, protected 用意されてません アトリビュートはアクセサメソッドで保護 private メソッドは _ を先頭に paranoia な人は caller() でチェック Class::Fields, Attribute::Protected

11 Perl OO Advanced

12 オブジェクトが1つしかないことは保証できない
Design Patterns (1/3) Singleton Pattern スタティック変数はレキシカル変数を利用 パッケージ変数に格納 (Class::Singleton) package Printer; my $instance = Printer->new(); sub instance { $instance } package Printer; use base qw(Class::Singleton); sub _new_instance { … } オブジェクトが1つしかないことは保証できない

13 Design Patterns (2/3) Decorator Pattern AUTOLOAD を利用してメソッドを転送
Class::Decorator Class::Delegate package ReverseDecorator; sub new { my($class, $obj) bless { o => $obj }, $class; } sub AUTOLOAD { (my $meth = $AUTOLOAD) =~ s/.*://; = map

14 Object::PerlDesignPatterns
Class::* Modules Class::Composite Class::Prototype Object::PerlDesignPatterns Perl でパターンやるなら必読

15 Mix-in 多重継承はダイアモンド型の問題あり Exporter を利用して mix-in を実装 Ruby の Module に相当
mixin.pm (M.Schwern) package Speakable; use base qw(Exporter); @EXPORT = qw(speak); sub speak { my $self = shift; print “my name: “, $self->name; } package Man; use Speakable; sub speak { my $self = shift; print “my name: “, $self->name; } 実装を借りてくるようなイメージ

16 Aspect Oriented Programming
AOP Aspect Oriented Programming PerlのOOは動的束縛 他クラスのメソッドを上書き Aspect.pm my $orig = Man->can(‘walk’); *Man::walk = sub { warn “Man::walk here”; goto &$orig; };

17 おまけ(1/2) rubyisms.pm Simon Cozens 作 Steal some features from Ruby
package Foo; use rubyisms; sub initialize { self->{things} = ]; self->another_method; } sub my_method { if ($interesting) { … } else { super } sub array_iterator { yield() } array_iterator { print $_[0], “\n” } (“Hello”, “World”);

18 おまけ(2/2) autobox.pm use builtin datatypes as first-class objects
Perl RC4 へのパッチ必要 use autobox; my $range = 10->to(1); my $ton = $range->[0]->mul(10); my $error = 3.14->minus(22/7); my $greeting = "Hello, World"->upper(); $greeting->to_lower(); $greeting->for_each(\&char_handler); my $arr = ]->map(...)->sort(...);

19 Perl の OO は現場で使えるか?

20 Sledge (http://sl.edge.jp/)
事例紹介 Sledge ( MVC なWebアプリケーションフレームワーク オブジェクト指向 アプリケーション： クラス ページ： メソッド Abstract Factory, Strategy, Singleton, Template Method などのパターンを利用 Class::DBI (O/R Mapping) とコンボが強力

21 エッジ社ではほぼ全てのプロジェクトで利用
Sledge の適用事例 エッジ社ではほぼ全てのプロジェクトで利用 プロジェクトあたりプログラマ 2-4名 開発期間 2w-6w 2001年夏に開発 2002年始めから標準化 浸透には時間がかかった Sledge 自体の安定性の問題もあり チーフエンジニアへの教育 各プロジェクトで採用→OJTとノウハウ共有(CVS, Wiki, Mailing List)

22 まとめ 基本的OO機能は備わっている 何でも動的 Hackすれば大体のことは実現できる 何をしてるかわかる人がやる
$obj->$method(); $another; Hackすれば大体のことは実現できる 何をしてるかわかる人がやる 何をしてるかわからないようにする