projekt kivitendo

package SL::Helper::Inventory::Allocation {

  my @attributes = qw(parts_id qty bin_id warehouse_id chargenumber bestbefore comment for_object_id);

  my %attributes = map { $_ => 1 } @attributes;

  my %mapped_attributes = (

    for_object_id => 'oe_id',

  );

  for my $name (@attributes) {

    no strict 'refs';

    *{"SL::Helper::Inventory::Allocation::$name"} = sub { $_[0]{$name} };

  }

  sub new {

    my ($class, %params) = @_;

    Carp::croak("missing attribute $_") for grep { !exists $params{$_}     } @attributes;

    Carp::croak("unknown attribute $_") for grep { !exists $attributes{$_} } keys %params;

    Carp::croak("$_ must be set")       for grep { !$params{$_} } qw(parts_id qty bin_id);

    Carp::croak("$_ must be positive")  for grep { !($params{$_} > 0) } qw(parts_id qty bin_id);

    bless { %params }, $class;

  }

  sub transfer_object {

    my ($self, %params) = @_;

    SL::DB::Inventory->new(

      (map {

        my $attr = $mapped_attributes{$_} // $_;

        $attr => $self->{$attr}

      } @attributes),

      %params,

    );

  }

}