view release on metacpan or  search on metacpan

lib/Test/RandomResult.pm  view on Meta::CPAN

use strict;
use warnings;
use Test2::API 'context';

use Exporter 'import';
our @EXPORT = qw(
    results_look_random
);

sub results_look_random(&@) {
    my $code = shift;
    my $opts = {};
    while (@_ > 1) {
        my ($k, $v) = splice @_, 0, 2;
        $opts->{$k} = $v;
    };
    my $name = @_ ? shift : undef;

    my $runs = $opts->{runs} || 30;
    $runs >= 2 or die "Please set runs > 1";