view release on metacpan or  search on metacpan

lib/Acme/HashKeyOrderBrokenAgain.pm  view on Meta::CPAN

sub hash_key_order_reproducable {
    local $ENV{ PERL_PERTURB_KEYS } = "DETERMINISTIC";

    my %hash = ( one   => 1,  two  => 2, three => 3, 
                 four  => 4,  five => 5,   six => 6,
                 seven => 7, eight => 8,  nine => 9, 
                 ten   => 10 );

    my @first  = keys %hash;
    my @second = keys %hash;

    return is_deeply 
        \@first, \@second, "compare hash key order for subsequent calls " .
        "with PERL_PERTURB_KEYS=$ENV{ PERL_PERTURB_KEYS }";
}

1;

__END__

=head1 NAME

Acme::HashKeyOrderBrokenAgain - Request reproducable hash keys order within a script and verify if Perl complies