- my $self = shift;
- my $dup = File::KDBX::Cipher->new(
- stream_id => $self->stream_id,
- key => $self->key,
- @_,
- );
- $dup->{key} = $self->key;
- $dup->{iv} = $self->iv;
- # FIXME - probably turn this into a proper clone method
+ my $self = shift;
+ my $class = blessed($self);
+
+ my $dup = bless {%$self, @_}, $class;
+ delete $dup->{stream};