Select Code to Download

use warnings;
use strict;

...
  return UNDEF_VAL unless(defined $inherited);
  return $this->FETCH($inherited);
}

package main;

...
}

sub printParam { print "  $_[0] = $par{$_[0]}\n" }

Initial values:
  margin = a
...
  margin-horizontal = 8
  margin-left = 3
  margin-right = 8