Help for this page

Select Code to Download


  1. or download this
    $@ = '';
    eval {
    ...
    $order = TblOrders->retrieve($order_values->{order_id})
        or confess "Could not read back order with "
        . "order ID = $order_values->{order_id}\n";
    
  2. or download this
    sub store_order {
        my ($self) = @_;
    ...
        }
        return $order;
    }