Revision 4ac74078
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
SL/DB/DeliveryOrder.pm | ||
---|---|---|
19 | 19 |
|
20 | 20 |
# methods |
21 | 21 |
|
22 |
sub items { goto &orderitems; } |
|
23 |
|
|
22 | 24 |
sub sales_order { |
23 | 25 |
my $self = shift; |
24 | 26 |
my %params = @_; |
SL/DB/Invoice.pm | ||
---|---|---|
25 | 25 |
|
26 | 26 |
# methods |
27 | 27 |
|
28 |
sub items { goto &invoiceitems; } |
|
29 |
|
|
28 | 30 |
# it is assumed, that ordnumbers are unique here. |
29 | 31 |
sub first_order_by_ordnumber { |
30 | 32 |
my $self = shift; |
SL/DB/Order.pm | ||
---|---|---|
34 | 34 |
|
35 | 35 |
# methods |
36 | 36 |
|
37 |
sub items { goto &orderitems; } |
|
38 |
|
|
37 | 39 |
sub type { |
38 | 40 |
my $self = shift; |
39 | 41 |
|
SL/DB/PurchaseInvoice.pm | ||
---|---|---|
14 | 14 |
|
15 | 15 |
__PACKAGE__->meta->initialize; |
16 | 16 |
|
17 |
sub items { goto &invoiceitems; } |
|
18 |
|
|
17 | 19 |
1; |
Auch abrufbar als: Unified diff
Sub-Aliase 'items' auf 'orderitems' bzw. 'invoiceitems' zur späteren Verwendung eines Mixins
Conflicts: