Help for this page

Select Code to Download


  1. or download this
      
  DB<21> $par{"margin-left"} = "a" 

...

  DB<23> p $actual
margin-horizontal
  2. or download this
    $chain{margin}    = [qw/margin-left margin-horizontal margin/ ];
# etc
($actual{$head}) = grep { $par{$_} ne "a" } @{ $chain{$head} };