- my ($module, $sub_module, $trans_id) = ref($src) eq 'SL::DB::OrderItem' ? ('IC', 'orderitems', $src->id)
- : ref($src) eq 'SL::DB::DeliveryOrderItem' ? ('IC', 'delivery_order_items', $src->id)
- : ref($src) eq 'SL::DB::InvoiceItem' ? ('IC', 'invoice', $src->id)
- : ('CT', undef, _has($src, 'customer_id') ? $src->customer_id : $src->vendor_id);
+ my $obj = (any { ref($src) eq $_ } qw(SL::DB::OrderItem SL::DB::DeliveryOrderItem SL::DB::InvoiceItem))
+ ? $src
+ : $src->customervendor;