Revision 6df0942b
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DB/PeriodicInvoicesConfig.pm | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 |
use Readonly; |
|
| 6 |
|
|
| 7 | 5 |
use SL::DB::MetaSetup::PeriodicInvoicesConfig; |
| 8 | 6 |
|
| 9 | 7 |
__PACKAGE__->meta->add_relationships( |
| ... | ... | |
| 19 | 17 |
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all. |
| 20 | 18 |
__PACKAGE__->meta->make_manager_class; |
| 21 | 19 |
|
| 22 |
Readonly our @PERIODICITIES => qw(m q f b y);
|
|
| 23 |
Readonly our %PERIOD_LENGTHS => ( m => 1, q => 3, f => 4, b => 6, y => 12 );
|
|
| 20 |
our @PERIODICITIES = qw(m q f b y);
|
|
| 21 |
our %PERIOD_LENGTHS = ( m => 1, q => 3, f => 4, b => 6, y => 12 );
|
|
| 24 | 22 |
|
| 25 | 23 |
sub get_period_length {
|
| 26 | 24 |
my $self = shift; |
Auch abrufbar als: Unified diff
Readonly nicht benutzen