SL/DB/LetterDraft.pm

   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.
   3
   4 package SL::DB::LetterDraft;
   5
   6 use strict;
   7
   8 use SL::DB::MetaSetup::LetterDraft;
   9
  10 __PACKAGE__->meta->initialize;
  11
  12 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
  13 __PACKAGE__->meta->make_manager_class;
  14
  15 sub new_from_letter {
  16   my ($class, $letter) = @_;
  17
  18   my $self = $class->new;
  19
  20   if (!ref $letter) {
  21     require SL::DB::Draft;
  22     $letter = SL::DB::Draft->new(id => $letter)->load;
  23   }
  24
  25   $self->assign_attributes(map { $_ => $letter->$_ } $letter->meta->columns);
  26
  27   $self->id(undef);
  28
  29   $self;
  30 }
  31
  32 1;