Revision 211de9e3
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
SL/DB/Order.pm | ||
---|---|---|
84 | 84 |
return shift->type eq shift; |
85 | 85 |
} |
86 | 86 |
|
87 |
sub is_sales { |
|
88 |
croak 'not an accessor' if @_ > 1; |
|
89 |
return shift->customer_id; |
|
90 |
} |
|
91 |
|
|
87 | 92 |
sub invoices { |
88 | 93 |
my $self = shift; |
89 | 94 |
my %params = @_; |
Auch abrufbar als: Unified diff
is_sales methode für Order