view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

# RT #48571 : Random Test Failures due to unexpected array order
# See Also :  RT #48593 : Document Result-Order being arbitrary and not-predictable

sub class_sort {
    my ( $x, $y ) = @_;
    my @m = keys %{ $x };
    my @n = keys %{ $y };
    return $m[0] cmp $n[0];
}

sub c_sort($){
    [ sort { class_sort($a,$b) } @{ $_[0] } ]
}

sub make_paths_native {
    my ( $result_list ) = @_;
    
    for ( @{$result_list} ) {
        my ($result) = values %{$_};
        $result->{file} = dir($result->{file})->stringify;
    }