sub debug {
  my ($self,$val) = @_;
  $self->{_debug} = $val if (defined $val);
  $self->{_debug};
}