t/accessor-weaken-pre-5_8_3.t

   1 use strictures 1;
   2 use Moo::_Utils;
   3
   4 BEGIN {
   5   no warnings 'redefine';
   6   *Moo::_Utils::lt_5_8_3 = sub () { 1 };
   7 }
   8
   9 (my $real_test = __FILE__) =~ s/-pre-5_8_3//;
  10
  11 unless (defined do $real_test) {
  12     die "$real_test: $@" if $@;
  13     die "$real_test: $!" if $!;
  14 }