projekt kivitendo

  my $file       =  "SL/DB/${package}.pm";

  $schema        = <<CODE if $schema;

CODE

  my $definition =  eval <<CODE;

    use base qw(SL::DB::Object);

    __PACKAGE__->meta->table('$table');

    __PACKAGE__->meta->auto_initialize;

    __PACKAGE__->meta->perl_class_definition(indent => 2); # , braces => 'bsd'

use SL::DB::MetaSetup::${package};

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

1;