+ if ('HASH' eq ref $args[0]) { # we were given a hash
+ @args = %{$args[0]}
+ }
+ unshift @args, logN => 14, r => 16, p => 1; # default values
+ my %args = @args;
+ $args{salt} = rand_bits 256 unless exists $args{salt};
+ my $self = bless \%args, $class;