Revision 2309ac25
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
| SL/Presenter/CustomerVendor.pm | ||
|---|---|---|
| 10 | 10 |
use Carp; |
| 11 | 11 |
|
| 12 | 12 |
sub customer {
|
| 13 |
my ($self, $customer, $type, %params) = @_;
|
|
| 13 |
my ($self, $customer, %params) = @_; |
|
| 14 | 14 |
return _customer_vendor($self, $customer, 'customer', %params); |
| 15 | 15 |
} |
| 16 | 16 |
|
| 17 | 17 |
sub vendor {
|
| 18 |
my ($self, $vendor, $type, %params) = @_;
|
|
| 18 |
my ($self, $vendor, %params) = @_; |
|
| 19 | 19 |
return _customer_vendor($self, $vendor, 'vendor', %params); |
| 20 | 20 |
} |
| 21 | 21 |
|
Auch abrufbar als: Unified diff
Presenter->customer und ->vendor brauchen keinen $type.