use strict; use warnings; use Test2::Tools::Tiny; BEGIN { skip_all "Not testing before 5.18 or after 5.37.10" if $] < 5.018 or $] >= 5.037010; } require Test::More; *cmp_ok = \&Test::More::cmp_ok; no warnings "experimental::smartmatch"; no if !exists $warnings::Offsets{"experimental::smartmatch"}, warnings => 'deprecated'; my $warnings = warnings { cmp_ok(1, "~~", 1) }; ok(!@$warnings, "Did not get any warnings"); done_testing;