Revision c825bf71
Von Moritz Bunkus vor mehr als 9 Jahren hinzugefügt
| scripts/rose_auto_create_model.pl | ||
|---|---|---|
|
|
||
|
eval <<CODE;
|
||
|
package SL::DB::AUTO::$package;
|
||
|
use SL::DB::Object;
|
||
|
use base qw(SL::DB::Object);
|
||
|
use parent qw(SL::DB::Object);
|
||
|
|
||
|
__PACKAGE__->meta->table('$table');
|
||
|
$schema_str
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
$definition =~ s/(meta->table.*)\n/$1\n$schema_str/m if $schema;
|
||
|
$definition =~ s{^use base}{use parent}m;
|
||
|
|
||
|
my $full_definition = <<CODE;
|
||
|
# This file has been auto-generated. Do not modify it; it will be overwritten
|
||
| ... | ... | |
|
|
||
|
use strict;
|
||
|
|
||
|
use SL::DB::Helper::Manager;
|
||
|
use base qw(SL::DB::Helper::Manager);
|
||
|
use parent qw(SL::DB::Helper::Manager);
|
||
|
|
||
|
sub object_class { 'SL::DB::${package}' }
|
||
|
|
||
Auch abrufbar als: Unified diff
Rose-Model-Creation: use parent anstelle von use base nutzen
Momentan benutzt die kivitendo-Codebasis beides zu ähnlich großen
Teilen. Allerdings sagt allein schon die Dokumentation zu base(3perl),
dass eigentlich immer das leichtgewichtigere parent(3perl) zu bevorzugen
ist.