- my $n = $self->{module} . '::' . $subclass;
- if (! defined &{ $n }) {
- my $missing = "missing $subclass in $self->{module}";
- $self->{$subclass} = sub { $log->logwarn($missing) };
- } else {
- $self->{$subclass} = \&{ $n };
- }
- }
-
- if ($self->{init}) {
- $log->debug("calling init");
- $self->{init}->($self, @_);