type-test.pl

#!/opt/perl5/bin/perl

use v5.22;
use warnings;

use Type::Tiny;
use Types::Standard qw(Maybe ArrayRef Int);

my $Type = "Type::Tiny"->new(
    name       => 'OrderBy',
    constraint => sub { Maybe[ArrayRef[Int]] },
    message    => sub { "$_ is not an array of integers" },
);

my %tests = (
    1   => [qw(1 2 3 4 )],
    2   => [qw( foo bar)],
);

for my $t (sort keys %tests ) {
    say $tests{$t};
    $Type->assert_valid($tests{$t});
}