sub AUTOLOAD {

  my $r = shift;

  my $func = (split('::', $Format::AUTOLOAD))[-1];

  if (my $sub = Format::Real->can($func)) {
    unshift(@_, $r->{real}, $r->{spec});   
    goto &$sub;
  }
}