we want unknown stuff to become parameters here

2 files changed, 18 insertions, 3 deletions

diff --git a/lib/Bread/Board/Declare/Role/Object.pm b/lib/Bread/Board/Declare/Role/Object.pm
index 34fbf3e..de699e9 100644
--- a/lib/Bread/Board/Declare/Role/Object.pm
+++ b/lib/Bread/Board/Declare/Role/Object.pm
@@ -36,6 +36,7 @@ after BUILD => sub {
             my $inferred = Bread::Board::Service::Inferred->new(
                 current_container => $self,
                 service           => $service->clone,
+                infer_params      => 1,
             )->infer_service($service->class, \%seen);
 
             $self->add_service($inferred);
diff --git a/t/infer.t b/t/infer.t
index 2b064a3..34703a0 100644
--- a/t/infer.t
+++ b/t/infer.t
@@ -104,10 +104,24 @@ use Test::Fatal;
 }
 
 {
+    my $c;
+    is(exception { $c = My::Container2->new }, undef,
+       "no error when not everything can be inferred");
     like(
-        exception { My::Container2->new },
-        qr/^Only class types, role types, or subtypes of Object can be inferred\. I don't know what to do with type \(Str\)/,
-        "correct error when not everything can be inferred"
+        exception { $c->baz },
+        qr/Mandatory parameter 'thing' missing/,
+        "error when resolving a service with unfulfilled parameters"
+    );
+    is(
+        exception {
+            my $baz = $c->resolve(
+                service => 'baz',
+                parameters => { thing => "THING" },
+            );
+            is($baz->thing, 'THING', "parameter provided correctly");
+        },
+        undef,
+        "no errors when parameters are given"
     );
 }