use strict;
-use Readonly;
use Rose::DB::Object;
use List::MoreUtils qw(any);
use SL::DB;
-use SL::DB::Helpers::Attr;
-use SL::DB::Helpers::Metadata;
-use SL::DB::Helpers::Manager;
+use SL::DB::Helper::Attr;
+use SL::DB::Helper::Metadata;
+use SL::DB::Helper::Manager;
use base qw(Rose::DB::Object);
}
sub meta_class {
- return 'SL::DB::Helpers::Metadata';
+ return 'SL::DB::Helper::Metadata';
}
sub _get_manager_class {
return $class->meta->convention_manager->auto_manager_class_name($class);
}
-Readonly my %text_column_types => (text => 1, char => 1, varchar => 1);
+my %text_column_types = (text => 1, char => 1, varchar => 1);
sub assign_attributes {
my $self = shift;