SL/DB/RequirementSpecStatus.pm

   1 package SL::DB::RequirementSpecStatus;
   2
   3 use strict;
   4
   5 use List::MoreUtils qw(none);
   6
   7 use SL::DB::MetaSetup::RequirementSpecStatus;
   8 use SL::DB::Manager::RequirementSpecStatus;
   9 use SL::DB::Helper::ActsAsList;
  10 use SL::Locale::String;
  11
  12 __PACKAGE__->meta->initialize;
  13
  14 our @valid_names = qw(planning running done);
  15
  16 sub validate {
  17   my ($self) = @_;
  18
  19   my @errors;
  20
  21   push @errors, t8('The name is missing.')                     if !$self->name;
  22   push @errors, t8('The name and description are not unique.') if  $self->get_first_conflicting('name', 'description');
  23   push @errors, t8('The name is invalid.')                     if  none { $_ eq $self->name } @valid_names;
  24   push @errors, t8('The description is missing.')              if !$self->description;
  25
  26   return @errors;
  27 }
  28
  29 1;