sub phrase {
  my $self = shift;
  @_ ? $self->{phrase} = shift : $self->{phrase};
}