Help for this page

Select Code to Download


  1. or download this
    $config = {
 verbosity => 3,
...
 ...
 # hundreds of configuration settings
};
  2. or download this
    $params = {
  from => ...,
...
# call it
my $ret = distance($params);
die $ret->{errormsg} unless $ret->{status} == 1;
  3. or download this
    # I am skipping some boilerplate
package Calc;
...
   distance => 42
  };
}
  4. or download this
    my $calcobj = Calc->new('settings.config');
my $res = $calcobj->distance({
...
  # override system-wide config setting
  timeout => ...,
});