use vars qw($VERSION);
BEGIN {
- $VERSION = '2.03';
+ $VERSION = '2.05';
Time::HiRes->import('time') if eval {require Time::HiRes};
}
my ($code, $found) = @{ $self->find_hook($hook, $step) };
if (! $code) {
croak "Could not find a method named ${step}_${hook} or ${hook}";
+ } elsif (! UNIVERSAL::isa($code, 'CODE')) {
+ croak "Value for $hook ($found) is not a code ref ($code)";
}
### record history