Revision 61bd6288
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
SL/DB/Order.pm | ||
---|---|---|
69 | 69 |
|
70 | 70 |
sub is_sales { |
71 | 71 |
croak 'not an accessor' if @_ > 1; |
72 |
return shift->customer_id; |
|
72 |
return !!shift->customer_id;
|
|
73 | 73 |
} |
74 | 74 |
|
75 | 75 |
sub invoices { |
Auch abrufbar als: Unified diff
Boolesche Funktionen ("is_...") auch boolesche Werte zurückgeben lassen
Ansonsten sind Vergleiche nervig:
$a->is_ales == $b->is_sales