Help for this page

Select Code to Download


  1. or download this
    sub dbg {
  my ($self,$msg) = @_;
  return if (! $self->{_debug});
  print STDERR "[DEBUG] : $msg\n";
}
  2. or download this
    sub debug {
  my ($self,$val) = @_;
  $self->{_debug} = $val if (defined $val);
  $self->{_debug};
}
  3. or download this
    sub dbg {
  my $msg = shift;
  print "[DEBUG] : $msg\n" if ($main::DEBUG);
}