SL::DB::Employee::auth_user: holt korrespondierendes Objekt aus auth.users

Convenience-Funktion, um einfacher an Config-Werte
heranzukommen. Beispiel:

foreach my $employee (@{ SL::DB::Manager::Employee->get_all }) {
  my $email = $employee->auth_user->get_config_value('email');
  do_stuff_with($email);
}

diff --git a/SL/DB/Employee.pm b/SL/DB/Employee.pm
index 8da20c0..0c321b6 100644 (file)
--- a/SL/DB/Employee.pm
+++ b/SL/DB/Employee.pm
@@ -27,4 +27,14 @@ sub safe_name {
   return $self->name || $self->login;
 }
 
+sub auth_user {
+  my ($self) = @_;
+
+  die 'not an accessor' if scalar(@_) > 1;
+
+  require SL::DB::AuthUser;
+
+  return SL::DB::Manager::AuthUser->find_by(login => $self->login);
+}
+
 1;