Help for this page

Select Code to Download


  1. or download this
    my( $state, $zip ) = @{
    $user->GetAccount()->GetPriorOrder()->GetShippingAddress()
}{ 'state', 'zip' };
  2. or download this
    perl -le '%* = (foo => bar); print $*{foo}; @* = qw(foo bar baz); prin
+t $*[1]'