- die SL::X::DBHookError->new(when => $when,
- hook => (ref($sub) eq 'CODE' ? '<anonymous sub>' : $sub),
- object => $object)
+ die SL::X::DBHookError->new(when => $when,
+ hook => (ref($sub) eq 'CODE' ? '<anonymous sub>' : $sub),
+ object => $object,
+ object_type => ref($object))