100 |
foreach my $subclass (qw/open_db fetch_rec init/) { |
foreach my $subclass (qw/open_db fetch_rec init/) { |
101 |
my $n = $self->{module} . '::' . $subclass; |
my $n = $self->{module} . '::' . $subclass; |
102 |
if (! defined &{ $n }) { |
if (! defined &{ $n }) { |
103 |
$log->logwarn("missing implementation of $subclass"); |
my $missing = "missing $subclass in $self->{module}"; |
104 |
|
$log->logwarn($missing); |
105 |
|
$self->{$subclass} = sub { warn "$missing\n" }; |
106 |
} else { |
} else { |
107 |
$self->{$subclass} = \&{ $n }; |
$self->{$subclass} = \&{ $n }; |
108 |
} |
} |