Revision 211de9e3
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
|
return shift->type eq shift;
|
||
|
}
|
||
|
|
||
|
sub is_sales {
|
||
|
croak 'not an accessor' if @_ > 1;
|
||
|
return shift->customer_id;
|
||
|
}
|
||
|
|
||
|
sub invoices {
|
||
|
my $self = shift;
|
||
|
my %params = @_;
|
||
Auch abrufbar als: Unified diff
is_sales methode für Order