1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use Bread::Board;
{
package My::Simple::Logger;
use Moose;
package My::Database::Logger;
use Moose;
has ['dsn', 'username', 'password'] => ( is => 'ro', isa => 'Str', required => 1 );
package My::Application;
use Moose;
has 'log_handle' => ( is => 'ro', isa => 'Object', required => 1 );
}
my $simple_logger = container 'SimpleLogger' => as {
service 'handle' => (
class => 'My::Simple::Logger'
);
};
isa_ok($simple_logger, 'Bread::Board::Container');
my $db_conn_info = container 'DatabaseConnection' => as {
service 'dsn' => 'dbi:mysql:foo';
service 'username' => 'bar';
service 'password' => '***';
};
isa_ok($db_conn_info, 'Bread::Board::Container');
my $db_logger = container 'DatabaseLogger' => [ 'DBConnInfo' ] => as {
service 'handle' => (
class => 'My::Database::Logger',
dependencies => {
dsn => depends_on('DBConnInfo/dsn'),
username => depends_on('DBConnInfo/username'),
password => depends_on('DBConnInfo/password'),
}
);
};
isa_ok($db_logger, 'Bread::Board::Container::Parameterized');
isnt(exception {
$db_logger->fetch('handle')
}, undef, '... cannot call fetch on a parameterized container');
my $app = container 'Application' => [ 'Logger' ] => as {
service 'app' => (
class => 'My::Application',
dependencies => {
log_handle => depends_on('Logger/handle')
}
);
};
isa_ok($app, 'Bread::Board::Container::Parameterized');
isnt(exception {
$app->fetch('handle')
}, undef, '... cannot call fetch on a parameterized container');
isnt(exception {
$app->resolve( service => 'handle')
}, undef, '... cannot call resolve on a parameterized container');
my $simple_app = $app->create( Logger => $simple_logger );
isa_ok($simple_app, 'Bread::Board::Container');
isa_ok($simple_app->resolve( service => 'app' )->log_handle, 'My::Simple::Logger');
my $db_app = $app->create( Logger => $db_logger->create( DBConnInfo => $db_conn_info ) );
isa_ok($db_app, 'Bread::Board::Container');
isa_ok($db_app->resolve( service => 'app' )->log_handle, 'My::Database::Logger');
done_testing;
|
