X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/841d44c00aae1166a0721e40dc2f9ffb7b9ac5b5..d2c5f6474ebd578ce46e09484780cfea556abb5e:/SL/DB/MetaSetup/AuthClient.pm

diff --git a/SL/DB/MetaSetup/AuthClient.pm b/SL/DB/MetaSetup/AuthClient.pm
index b78050cf0..5e9d59e04 100644
--- a/SL/DB/MetaSetup/AuthClient.pm
+++ b/SL/DB/MetaSetup/AuthClient.pm
@@ -4,29 +4,27 @@ package SL::DB::AuthClient;
 
 use strict;
 
-use base qw(SL::DB::Object);
+use parent qw(SL::DB::Object);
 
-__PACKAGE__->meta->setup(
-  table   => 'clients',
-  schema  => 'auth',
+__PACKAGE__->meta->table('clients');
+__PACKAGE__->meta->schema('auth');
 
-  columns => [
-    id         => { type => 'serial', not_null => 1 },
-    name       => { type => 'text', not_null => 1 },
-    dbhost     => { type => 'text', not_null => 1 },
-    dbport     => { type => 'integer', default => 5432, not_null => 1 },
-    dbname     => { type => 'text', not_null => 1 },
-    dbuser     => { type => 'text', not_null => 1 },
-    dbpasswd   => { type => 'text', not_null => 1 },
-    is_default => { type => 'boolean', default => 'false', not_null => 1 },
-  ],
+__PACKAGE__->meta->columns(
+  dbhost     => { type => 'text', not_null => 1 },
+  dbname     => { type => 'text', not_null => 1 },
+  dbpasswd   => { type => 'text', not_null => 1 },
+  dbport     => { type => 'integer', default => 5432, not_null => 1 },
+  dbuser     => { type => 'text', not_null => 1 },
+  id         => { type => 'serial', not_null => 1 },
+  is_default => { type => 'boolean', default => 'false', not_null => 1 },
+  name       => { type => 'text', not_null => 1 },
+);
 
-  primary_key_columns => [ 'id' ],
+__PACKAGE__->meta->primary_key_columns([ 'id' ]);
 
-  unique_keys => [
-    [ 'dbhost', 'dbport', 'dbname' ],
-    [ 'name' ],
-  ],
+__PACKAGE__->meta->unique_keys(
+  [ 'dbhost', 'dbport', 'dbname' ],
+  [ 'name' ],
 );
 
 1;