[gitmo/Moo.git] / t / accessor-weaken-pre-5_8_3.t

use strictures 1;

BEGIN {
  $ENV{MOO_TEST_PRE_583} = 1;
}

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

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