Zufälligerweise heißen die alle fast schon so wie vordefiniert,
aber leider nicht ganz genauso ...
 sub set_orderstatus {
   my ($self, $order_id, $transition) = @_;
 
+  # one state differs
+  $transition = 'complete' if $transition eq 'completed';
+
   croak "No shop order ID, should be in format [0-9a-f]{32}" unless $order_id   =~ m/^[0-9a-f]{32}$/;
   croak "NO valid transition value"                          unless $transition =~ m/(open|process|cancel|complete)/;
   my $ret;