sub blog
  {
  # not implemented yet
  my ($self,$x,$base,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);

  return $upgrade->blog($x,$base,$a,$p,$r) if defined $upgrade;

  return $x->bnan();
  }