目の前に僕らの道がある

勉強会とか、技術的にはまったことのメモ

テスト駆動開発入門をPerlで写経してみた。 8

tdd perl

オブジェクトの生成

今回は、クライアントコード側でDollarクラスやFrancクラスの内部実装を意識させないためにファクトリメソッドを定義しました。Moneyクラスのfranc()メソッドおよびdollar()メソッドがそれに当たります。

原書ではMoneyクラスを抽象メソッドにしていますが、今回の場合、Moneyクラスにはコンストラクタがそもそも無いため、インスタンス化できないので特にいじる必要はないのかなと思っています。

次回以降times()メソッドの重複を取り除きます。

が、その前に放置していたDancerを調べようかと思っています。

lib/Money.pm

package Money;
use strict;
use warnings;

use version;
our $VERSION = qv('0.0.3');

use overload
    "==" => \&equals,
    "eq" => \&equals,
    "!=" => \&not_equals,
    "ne" => \&not_equals,
    '""' => \&string;

sub equals {
    my ($self, $money) = (@_);
    use Test::More;
    return $self->{amount} == $money->{amount} &&
           ref $self eq ref $money;
}

sub not_equals {
    my ($self, $money) = (@_);
    return not $self->equals($money);
}

sub string {
    my ($self) = (@_);
    return $self->{amount} . ' (' . __PACKAGE__ . ')';
}

sub dollar {
    my ($class, $opts) =(@_);
    return new Dollar($opts);
}

sub franc {
    my ($class, $opts) =(@_);
    return new Franc($opts);
}

1;

package Dollar;
use strict;
use warnings;

use base 'Money';

use overload
    "*"  => \&times,
    '""' => \&string;

sub new {
    my ($class, $opts) =(@_);
    return bless $opts, $class;
}

sub times {
    my ($self, $multiplier) = (@_);
    return new Dollar({amount => $self->{amount} * $multiplier});
}

1;

package Franc;
use strict;
use warnings;

use base 'Money';

use overload
    "*"  => \×

sub new {
    my ($class, $opts) =(@_);
    return bless $opts, $class;
}

sub times {
    my ($self, $multiplier) = (@_);
    return new Franc({amount => $self->{amount} * $multiplier});
}

1;

t/00money.t

use strict;
use warnings;

use Test::Class;

Test::Class->runtests;

package TestMoney;
use strict;
use warnings;

use base 'Test::Class';

use Money;
use Test::More;

sub test_multiplication : Test(2) {
    my $five    = Money->dollar({amount => 5});
    is($five * 2, Money->dollar({amount => 10}));
    is($five * 3, Money->dollar({amount => 15}));
}

sub test_equality : Test(5) {
    ok(Money->dollar({amount => 5}) == Money->dollar({amount => 5}));
    ok(Money->dollar({amount => 5}) != Money->dollar({amount => 6}));
    ok(Money->franc({amount => 5})  == Money->franc({amount => 5}));
    ok(Money->franc({amount => 5})  != Money->franc({amount => 6}));
    ok(Money->franc({amount => 5})  != Money->dollar({amount => 5}));
}

sub test_franc_multiplication : Test(2) {
    my $five    = Money->franc({amount => 5});
    is($five * 2, Money->franc({amount => 10}));
    is($five * 3, Money->franc({amount => 15}));
}

1;

関連