Revision 2d7e4203
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
SL/DB/Employee.pm | ||
---|---|---|
5 | 5 |
use SL::DB::MetaSetup::Employee; |
6 | 6 |
use SL::DB::Manager::Employee; |
7 | 7 |
|
8 |
__PACKAGE__->meta->initialize; |
|
9 |
|
|
8 | 10 |
sub has_right { |
9 | 11 |
my $self = shift; |
10 | 12 |
my $right = shift; |
Auch abrufbar als: Unified diff
initialize in SL::DB::Objects statt im MetaSetup