sub _device_read{
  ...
  $r->{$reg} = _prittyfy_byte(...);
  ...
};

sub _prettify_byte{
    return (...) if( $_[0] );
    return( $c{_err_} );
};