Select Code to Download

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

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

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

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

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

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

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

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