From 6df0942bed6c478f0dd4f56778970fb3331aac19 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 9 Feb 2011 16:11:50 +0100 Subject: [PATCH] Readonly nicht benutzen --- SL/DB/PeriodicInvoicesConfig.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/SL/DB/PeriodicInvoicesConfig.pm b/SL/DB/PeriodicInvoicesConfig.pm index d49595bb5..bb64a5b3c 100644 --- a/SL/DB/PeriodicInvoicesConfig.pm +++ b/SL/DB/PeriodicInvoicesConfig.pm @@ -2,8 +2,6 @@ package SL::DB::PeriodicInvoicesConfig; use strict; -use Readonly; - use SL::DB::MetaSetup::PeriodicInvoicesConfig; __PACKAGE__->meta->add_relationships( @@ -19,8 +17,8 @@ __PACKAGE__->meta->initialize; # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all. __PACKAGE__->meta->make_manager_class; -Readonly our @PERIODICITIES => qw(m q f b y); -Readonly our %PERIOD_LENGTHS => ( m => 1, q => 3, f => 4, b => 6, y => 12 ); +our @PERIODICITIES = qw(m q f b y); +our %PERIOD_LENGTHS = ( m => 1, q => 3, f => 4, b => 6, y => 12 ); sub get_period_length { my $self = shift; -- 2.20.1