Revision e7d2012d
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
SL/DB/Customer.pm | ||
---|---|---|
50 | 50 |
return join ', ', grep { $_ } $self->street, $self->zipcode, $self->city; |
51 | 51 |
} |
52 | 52 |
|
53 |
sub displayable_name { |
|
54 |
my $self = shift; |
|
55 |
|
|
56 |
return join ' ', grep $_, $self->customernumber, $self->name; |
|
57 |
} |
|
58 |
|
|
53 | 59 |
1; |
Auch abrufbar als: Unified diff
displayable_name methode für customer