Real Life Example
file: code/validad/OxController.pm
20: sub init {
21: my ($self, $name, $args) = @_;
22: $args ||= {};
23:
24: my $controller_class = $self->controller_base."::Controller::".$name;
25: Class::Load::load_class($controller_class);
26:
27: my $bb = $self->bb;
28: my %args = (
29: %$args,
30: # TODO figure out what a given controllor needs
31: # should be possible somehow, as OX isa BB
32: renderer => $bb->resolve(service=>'/Environment/TT'),
33: renderer_nowrap => $bb->resolve(service=>'/Environment/TTnowrap'),
34: json => $bb->resolve(service=>'/Environment/json_coder'),
35: localizer => $bb->resolve(service=>'/Environment/localizer'),
36: config => $bb->resolve(service=>'/Component/Config/config'),
37: dbic => $bb->resolve(service=>'/Component/DB/schema'),
38: );
39:
40: my $controller = $controller_class->new( %args );
41: return $controller;
42: }