projekt kivitendo

use Carp;

sub clone {

  my ($self, $target) = @_;

  my $type   = ref($target) || $target;

  my $module = $type =~ m{::Order$}               ? 'OE'

             : $type =~ m{::DeliveryOrder$}       ? 'DO'

             : $type =~ m{::Invoice$}             ? 'AR'

             : $type =~ m{::(?:Customer|Vendor)$} ? 'CT'

             :                                      croak "Unsupported target class '$type'";

  my $new_shipto = SL::DB::Shipto->new(

    (map  { +($_ => $self->$_) }

     grep { !m{^ (?: itime | mtime | shipto_id | trans_id ) $}x }

     map  { $_->name }

     @{ $self->meta->columns }),

    module => $module,

  );

  return $new_shipto;

}

__END__

=pod

=encoding utf8

=head1 NAME

SL::DB::Shipto - Database model for shipping addresses

=head1 SYNOPSIS

  my $order = SL::DB::Order->new(id => …)->load;

  if ($order->custom_shipto) {

    my $cloned_shipto = $order->custom_shipto->clone('SL::DB::Invoice');

  }

=head1 FUNCTIONS

=over 4

=item C<clone $target>

Creates and returns a clone of the current object. The mandatory

parameter C<$target> must be either an instance of a Rose DB class or

the name of one. It's used for setting the new instance's C<module>

attribute to the correct value.

Currently the following classes are supported:

=over 2

=item C<SL::DB::Order>

=item C<SL::DB::DeliveryOrder>

=item C<SL::DB::Invoice>

=item C<SL::DB::Customer>

=item C<SL::DB::Vendor>

=back

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut