+=item name
+
+=cut
+
+sub name {
+ my $self = shift;
+ return $self->company if $self->company;
+
+ my $contact = ($self->contact)[0]; #first contact? good enough for now
+ return $contact->line if $contact;
+
+ 'Prospect #'. $self->prospectnum;
+}
+