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 do $real_test;
  12 die $@ if $@;
  13 die $! if $!;