use Log::Contextual qw(:log);
use Moo;
-extends 'IO::Async::Notifier';
+extends 'Moo::Object', 'IO::Async::Notifier';
+
+# we're replacing Notifier's constructor so need to set up its default
+has children => (is => 'bare', default => sub { [] });
sub BUILD {
my ($self, $args) = @_;
}
}
-sub configure {
- # If we called the superclass method, any ->new params that were populated
- # into attributes would cause a croak. While the loss of error checking is
- # annoying I've got other things to fix right now.
-}
-
sub _new_child {
my ($self, $class, $args) = @_;
$class->new(%{$args||{}}, parent_component => $self);