1 package SL::DB::RequirementSpecItem;
5 use SL::DB::MetaSetup::RequirementSpecItem;
6 use SL::DB::Manager::RequirementSpecItem;
7 use SL::DB::Helper::ActsAsList;
9 __PACKAGE__->meta->add_relationship(
11 type => 'one to many',
12 class => 'SL::DB::RequirementSpecItem',
13 column_map => { id => 'parent_id' },
17 __PACKAGE__->meta->initialize;
19 __PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id parent_id)]);
21 __PACKAGE__->before_delete(\&_before_delete_delete_children);
23 sub _before_delete_delete_children {
26 foreach my $child (@{ SL::DB::Manager::RequirementSpecItem->get_all(where => [ parent_id => $self->id ]) }) {
27 my $result = $child->delete;
28 return $result if !$result;
37 return [ sort { $a->position <=> $b->position } @{ $self->children } ];