Help for this page

Select Code to Download


  1. or download this
        use constant DEBUGGING => grep $_ eq "-d", @ARGV;
  2. or download this
    my %options;
BEGIN {
    # process @ARGV, putting results in %options
}
use constant DEBUGGING => $options{debug};