ditching the COMPONENT constructor

diff --git a/t/lib/TestAppCustomContainer/Model/Bar.pm b/t/lib/TestAppCustomContainer/Model/Bar.pm
index 86dcfd2..1c92392 100644 (file)
--- a/t/lib/TestAppCustomContainer/Model/Bar.pm
+++ b/t/lib/TestAppCustomContainer/Model/Bar.pm
@@ -4,6 +4,12 @@ extends 'Catalyst::Model';
 with 'TestAppCustomContainer::Role::HoldsFoo',
      'TestAppCustomContainer::Role::ACCEPT_CONTEXT';
 
+sub BUILD {
+    my ( $self ) = @_;
+
+    $self->foo->inc_bar_got_it;
+}
+
 __PACKAGE__->meta->make_immutable;
 
 no Moose;

diff --git a/t/lib/TestAppCustomContainer/Model/Baz.pm b/t/lib/TestAppCustomContainer/Model/Baz.pm
index 2efb1f5..fa475e6 100644 (file)
--- a/t/lib/TestAppCustomContainer/Model/Baz.pm
+++ b/t/lib/TestAppCustomContainer/Model/Baz.pm
@@ -4,6 +4,12 @@ extends 'Catalyst::Model';
 with 'TestAppCustomContainer::Role::HoldsFoo',
      'TestAppCustomContainer::Role::ACCEPT_CONTEXT';
 
+sub BUILD {
+    my ( $self ) = @_;
+
+    $self->foo->inc_baz_got_it;
+}
+
 __PACKAGE__->meta->make_immutable;
 
 no Moose;

diff --git a/t/lib/TestAppCustomContainer/Role/HoldsFoo.pm b/t/lib/TestAppCustomContainer/Role/HoldsFoo.pm
index a51f948..9e0aeba 100644 (file)
--- a/t/lib/TestAppCustomContainer/Role/HoldsFoo.pm
+++ b/t/lib/TestAppCustomContainer/Role/HoldsFoo.pm
@@ -8,13 +8,4 @@ has foo => (
     required => 1,
 );
 
-sub COMPONENT {
-    my ( $self, $ctx, $config ) = @_;
-
-    # FIXME - is this how should I get model Foo?
-    return $self->new(
-        foo => $ctx->model('Foo'),
-    );
-}
-
 1;