summaryrefslogtreecommitdiffstats
path: root/lib/Bread/Board.pm
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-12-28 13:50:27 -0600
committerJesse Luehrs <doy@tozt.net>2012-12-28 13:50:45 -0600
commit0dca94214cbf0cd77a75d1ddb285ada5306be67e (patch)
tree2b8aba6e5a945ca73c6f21eb3e6a9caff7653ae0 /lib/Bread/Board.pm
parent005699bf2fb916ab532f360e37d190c1a7602ec7 (diff)
downloadp6-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.pm94
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