Select Code to Download

$@ = '';
eval {
...
$order = TblOrders->retrieve($order_values->{order_id})
    or confess "Could not read back order with "
    . "order ID = $order_values->{order_id}\n";

sub store_order {
    my ($self) = @_;
...
    }
    return $order;
}