The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use blib;
use strict;
use autobox::List::Util;

use Test::More tests => 4;

my $v;

$v = [(9)]->min;
is($v, 9, 'single arg');

$v = [1,2]->min;
is($v, 1, '2-arg ordered');

$v = [(2,1)]->min;
is($v, 1, '2-arg reverse ordered');

my @a = map { rand() } 1 .. 20;
my @b = sort { $a <=> $b } @a;
$v = [(@a)]->min;
is($v, $b[0], '20-arg random order');