} else {
for my $i ( 1 .. delete $params{number_of_parts} || 3) {
my $part = new_part(partnumber => "$base_partnumber $i",
- description => "Testpart $i",
- )->save;
+ description => "Testpart $i",
+ )->save;
push( @{$assembly_items}, SL::DB::Assembly->new(parts_id => $part->id,
qty => 1,
position => $i,
} else {
for my $i ( 1 .. delete $params{number_of_parts} || 3) {
my $part = new_part(partnumber => "$base_partnumber $i",
- description => "Testpart $i",
- )->save;
+ description => "Testpart $i",
+ )->save;
push( @{$assortment_items}, SL::DB::AssortmentItem->new(parts_id => $part->id,
qty => 1,
position => $i,
=head1 SYNOPSIS
- use SL::DEV::Part qw(new_part new_assembly new_service new_assortment);
+ use SL::Dev::Part qw(new_part new_assembly new_service new_assortment);
# simple default objects
my $part = new_part()->save;