Help for this page
sub add_company { my ($self,$data) = shift; ... $self->{ _dbh }->commit if ! $self->{ _error }; return $return; }