Readonly nicht benutzen

diff --git a/SL/DB/PeriodicInvoicesConfig.pm b/SL/DB/PeriodicInvoicesConfig.pm
index d49595bb53e39d6bf1158c73367feed0293a17e5..bb64a5b3c996a2d79e70e79df68d34e143e3e191 100644 (file)
--- a/SL/DB/PeriodicInvoicesConfig.pm
+++ b/SL/DB/PeriodicInvoicesConfig.pm
@@ -2,8 +2,6 @@ package SL::DB::PeriodicInvoicesConfig;
 
 use strict;
 
 
 use strict;
 

-use Readonly;
-

 use SL::DB::MetaSetup::PeriodicInvoicesConfig;
 
 __PACKAGE__->meta->add_relationships(
 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;
 
 # 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;
 
 sub get_period_length {
   my $self = shift;