The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strictures 1;
use Moo::_Utils;

BEGIN {
  no warnings 'redefine';
  *Moo::_Utils::lt_5_8_3 = sub () { 1 };
}

(my $real_test = __FILE__) =~ s/-pre-5_8_3//;

unless (defined do $real_test) {
    die "$real_test: $@" if $@;
    die "$real_test: $!" if $!;
}