my $db;
-sub safe_can_nodie {
+sub safe_can {
my ($type, $sub, $name) = @_;
return unless $name =~ /^\w+$/s;
my $pkg = __PACKAGE__ . "::${type}::${name}";
eval "require $pkg" or get_logger->warn("Error while requiring $pkg: $@");
- $pkg->can($sub);
-}
-
-sub safe_can {
- my ($type, $sub, $name) = @_;
-
- safe_can_nodie @_ or get_logger->logdie("No such \l$type: '$name'");
+ $pkg->can($sub) or get_logger->logdie("No such \l$type: '$name'");
}
sub process{