最近、MooseX :: Declareを使用して、「実際のオブジェクト」をモックオブジェクトとして使用しています。
次のようなインターフェイスを実行するデータベースドライバがあるとします。
role Database {
requires 'connect';
requires 'query';
};
次に、データベースを使用する次のようなコードがあります。
class FooPage {
has 'database' => (
is => 'ro',
does => 'Database',
required => 1,
);
method get_foo() {
$self->database->query({ foo => 42 });
}
method render_page(Str $user) {
"Hello, $user. Here is a foo for you: ". $self->get_foo;
}
};
今、これをテストしたいと思います:
use Test::More tests => 2;
use MooseX::Declare;
my $fake_database = class with Database {
has 'data' => ( is => 'ro', isa => 'HashRef' );
has 'connected' => ( is => 'rw', isa => 'Bool' );
method connect() { $self->connected(1) }
method query(HashRef $query) { $self->data->{$query->{foo}} }
};
my $test_database = $fake_database->name->new(
data => {
42 => 'OH HAI',
},
};
my $foo_page = FooPage->new( database => $test_database );
is $foo_page->get_foo, 'OH HAI', 'got correct foo';
is $foo_page->render_page('jrockway'),
'Hello, jrockway. Here is a foo for you: OH HAI',
'got rendered page';
簡潔な構文がありますが、モックオブジェクトとしての「実際の」Mooseクラスの全機能に注目してください。便利で、無限に柔軟です。
(これらは単なる例です...それはまた、はるかに優れたものになる可能性があります。)