unless ( $object->method('param') ) { my ($errcode) = split ' ', $_; &$erract{$errcode}($_); }