Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;

...
  return UNDEF_VAL unless(defined $inherited);
  return $this->FETCH($inherited);
}
  2. or download this
    package main;

...
}

sub printParam { print "  $_[0] = $par{$_[0]}\n" }
  3. or download this
    Initial values:
  margin = a
...
  margin-horizontal = 8
  margin-left = 3
  margin-right = 8