handle non-Component children

[scpubgit/Clifton.git] / lib / App / Clifton / Component.pm

diff --git a/lib/App/Clifton/Component.pm b/lib/App/Clifton/Component.pm
index e6d592c..7b153f0 100644 (file)
--- a/lib/App/Clifton/Component.pm
+++ b/lib/App/Clifton/Component.pm
@@ -26,7 +26,13 @@ sub BUILD {
 
 sub _new_child {
   my ($self, $class, $args) = @_;
-  $class->new(%{$args||{}}, parent_component => $self);
+  if ($class->isa('App::Clifton::Component')) {
+    $class->new(%{$args||{}}, parent_component => $self);
+  } else {
+    my $new = $class->new(%{$args||{}});
+    $self->add_child($new);
+    $new;
+  }
 }
 
 sub _schedule {