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

   1 use strictures 1;
   2
   3 BEGIN {
   4   $ENV{MOO_TEST_PRE_583} = 1;
   5 }
   6
   7 (my $real_test = __FILE__) =~ s/-pre-5_8_3//;
   8
   9 unless (defined do $real_test) {
  10     die "$real_test: $@" if $@;
  11     die "$real_test: $!" if $!;
  12 }