- my $use_fork = $ENV{NO_FORK} || !can_fork ? FALSE : TRUE;
- *_USE_FORK = sub() { $use_fork };
-}
-
-sub init {
- my $self = shift;
- my %args = @_;
- return $self->SUPER::init(
- KDF_PARAM_AES_ROUNDS() => $args{+KDF_PARAM_AES_ROUNDS} // $args{rounds},
- KDF_PARAM_AES_SEED() => $args{+KDF_PARAM_AES_SEED} // $args{seed},
- );