- load_xs;
-
- my $use_fork = 1;
- $use_fork = 0 if $ENV{NO_FORK} || !can_fork;
- *USE_FORK = $use_fork ? sub() { 1 } : sub() { 0 };
-}
-
-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},
- );