sub setPhrase {
  my $self = shift;
  my $phrase = shift;
  $self->{phrase} = $phrase;
}

sub getPhrase {
  my $self = shift;
  return $self->{phrase};
}

##</code><code>##

sub Phrase {
  my $self=shift;
  $self->{phrase}=shift if @_;
  return $self->{phrase}
}

##</code><code>##

sub Phrase {
  my $self=shift;
  if (@_) {
     $self->{phrase}=shift;
     return $self;
  }
  return $self->{phrase}
}

##</code><code>##

my $dump=Data::Dumper->new([$foo])->Terse(1)->Purity(0)->Names(['foo'])->Dump()

##</code><code>##

my $saver  = Saver::Database->new($db, $user, $pass);

##</code><code>##

$quote1->setPhrase($phrase);
$quote1->setAuthor($author);

##</code><code>##

$quote1->Quote($phrase,$author);

##</code><code>##

$quote->Set(phrase=>$phrase,author=>$author);