1 # This file has been auto-generated only because it didn't exist.
2 # Feel free to modify it at will; it will not be overwritten automatically.
4 package SL::DB::LetterDraft;
8 use SL::DB::MetaSetup::LetterDraft;
10 __PACKAGE__->meta->initialize;
12 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
13 __PACKAGE__->meta->make_manager_class;
16 my ($class, $letter) = @_;
18 my $self = $class->new;
21 require SL::DB::Draft;
22 $letter = SL::DB::Draft->new(id => $letter)->load;
25 $self->assign_attributes(map { $_ => $letter->$_ } $letter->meta->columns);