package LedgerSMB::DBObject::Customer; use base qw(LedgerSMB::DBObject::Company); use strict; my $ENTITY_CLASS = 2; sub set_entity_class { my $self = shift @_; $self->{entity_class} = $ENTITY_CLASS; } sub search { } 1;