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
|
use v6;
use Test;
use Bread::Board;
# PERL6: doing anything at all with the type object for a role with required
# methods is broken
#sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) {
sub does_ok(Mu $var, Mu $type, $msg = ("The object does [some role]")) {
ok($var.does($type), $msg);
}
class MyApp::Schema { }
class DBH {
has ($.dsn, $.user, $.pass);
};
my $c = Bread::Board::Container.new(
name => 'Model',
services => [
Bread::Board::ConstructorInjection.new(
name => 'schema',
class => MyApp::Schema,
dependencies => {
dsn => Bread::Board::Literal.new(name => 'dsn', value => ''),
user => Bread::Board::Literal.new(name => 'user', value => ''),
pass => Bread::Board::Literal.new(name => 'pass', value => ''),
},
),
Bread::Board::BlockInjection.new(
name => 'dbh',
block => -> $s {
DBH.new(
dsn => $s.param('dsn'),
user => $s.param('user'),
pass => $s.param('pass'),
);
},
dependencies => {
dsn => Bread::Board::Literal.new(name => 'dsn', value => ''),
user => Bread::Board::Literal.new(name => 'user', value => ''),
pass => Bread::Board::Literal.new(name => 'pass', value => ''),
},
),
],
);
my $s = $c.fetch('dbh');
does_ok($s, Bread::Board::Service);
my $dbh = $s.get;
isa_ok($dbh, DBH);
done;
# vim:ft=perl6:foldmethod=manual
|