
package RTF::Returner;
use RTF::Writer;

sub new {
  my ($class) = shift;
  my $var = "";
  my $rtf = RTF::Writer->new_to_string(\$var);
  my $self = [\$var, $rtf];
  bless $self, $class;
}

sub DESTROY {} 

sub AUTOLOAD {
  my $self = shift;
  my ($class, $meth) = $AUTOLOAD =~ /(.*)::(.*)/;
  $ {$self->[0]} = "";
  $self->[1]->$meth(@_);
  return $ {$self->[0]};
}

1;
