Revision dc04e2cb
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/TransNumber.pm | ||
|---|---|---|
| 6 | 6 |
|
| 7 | 7 |
use Carp; |
| 8 | 8 |
use List::MoreUtils qw(any none); |
| 9 |
use Readonly; |
|
| 10 | 9 |
use SL::DBUtils; |
| 11 | 10 |
|
| 12 | 11 |
use Rose::Object::MakeMethods::Generic |
| ... | ... | |
| 14 | 13 |
scalar => [ qw(type id number save dbh dbh_provided business_id) ], |
| 15 | 14 |
); |
| 16 | 15 |
|
| 17 |
Readonly my @SUPPORTED_TYPES => qw(invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation);
|
|
| 16 |
my @SUPPORTED_TYPES = qw(invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation);
|
|
| 18 | 17 |
|
| 19 | 18 |
sub new {
|
| 20 | 19 |
my $class = shift; |
Auch abrufbar als: Unified diff
Alle Vorkommen von "Readonly" entfernt