diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-12-28 13:50:27 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-12-28 13:50:45 -0600 |
commit | 0dca94214cbf0cd77a75d1ddb285ada5306be67e (patch) | |
tree | 2b8aba6e5a945ca73c6f21eb3e6a9caff7653ae0 /lib/Bread/Board.pm | |
parent | 005699bf2fb916ab532f360e37d190c1a7602ec7 (diff) | |
download | p6-bread-board-0dca94214cbf0cd77a75d1ddb285ada5306be67e.tar.gz p6-bread-board-0dca94214cbf0cd77a75d1ddb285ada5306be67e.zip |
implement some bread::board sugar
Diffstat (limited to 'lib/Bread/Board.pm')
-rw-r--r-- | lib/Bread/Board.pm | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/lib/Bread/Board.pm b/lib/Bread/Board.pm index 7a56200..39b5a4b 100644 --- a/lib/Bread/Board.pm +++ b/lib/Bread/Board.pm @@ -5,6 +5,8 @@ module Bread::Board; class Container {...} class Dependency {...} +role Lifecycle { } + role Traversable { has Traversable $.parent is rw; @@ -51,6 +53,7 @@ role Traversable { role Service does Traversable { has Str $.name; + has $.lifecycle; # PERL6: doing anything at all with the type object for a role with # required methods is broken @@ -175,8 +178,13 @@ class ConstructorInjection does Service does HasParameters does HasDependencies %params.<dependencies> = $deps; } my $self = callwith(|%params); + # XXX see above $self._set_dependency_parents; + + $self does $self.lifecycle + if $self.lifecycle ~~ Lifecycle; + return $self; } @@ -229,8 +237,13 @@ class BlockInjection does Service does HasParameters does HasDependencies { %params.<dependencies> = $deps; } my $self = callwith(|%params); + # XXX see above $self._set_dependency_parents; + + $self does $self.lifecycle + if $self.lifecycle ~~ Lifecycle; + return $self; } @@ -307,6 +320,11 @@ class Container does Traversable { return $.sub_containers.{$name}; } + method add_service (Service $s) { + $.services.{$s.name} = $s; + $s.parent = self; + } + method has_services { return $.services > 0; } @@ -322,6 +340,82 @@ class Container does Traversable { // self.get_service($name) // die "Couldn't find service or container for $name in $.name"; } + + method resolve (Str :$service) { + return self.fetch($service).get; + } +} + +role Singleton does Lifecycle is export { + has $!instance; + has Bool $!has_instance; + + method get { + if !$!has_instance { + $!instance = callsame; + $!has_instance = True; + } + return $!instance; + } +} + +our $CC; + +proto container is export {*} +multi container (Container $c, Callable $body) { + $CC.add_sub_container($c) + if $CC; + temp $CC = $c; + $body.(); + $c; +} +multi container (Str $name, Callable $body) { + container(Container.new(name => $name), $body); +} +multi container (Callable $body) { + container(Container.new, $body); +} + +sub depends_on (Str $path) is export { + Dependency.new(service_path => $path); +} + +proto service is export {*} +multi service (*%params) { + my $service; + + if (%params.<value>:exists) { + $service = Literal.new(|%params); + } + elsif (%params.<block>:exists) { + $service = BlockInjection.new(|%params); + } + elsif (%params.<class>:exists) { + $service = ConstructorInjection.new(|%params); + } + else { + die "Couldn't create a service from {%params}"; + } + + $CC.add_service($service) + if $CC; + + return $service; +} +multi service (Str $name, *%params) { + service(name => $name, |%params); +} +multi service (Any $value) { + service(value => $value); +} +multi service (Str $name, Any $value) { + service(name => $name, value => $value); +} +multi service (Str $name, Parcel $params) { + service(name => $name, |$params.hash); +} +multi service (Parcel $params) { + service(|$params.hash); } # vim:ft=perl6:foldmethod=manual |