If you rewrite your AUTOLOAD to use the magic &goto; then the stack frame for the AUTOLOAD routine will be erased. This means that the method in Format::Real will behave exectly as if there had been no AUTOLOAD involved. Something like this would do the trick.

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;
  }
}
[download]