sub mode
{
  my $self = shift;
  $self->{mode} = $_[0] if (@_);
  $self->{mode};
}