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

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 $!;
}
Commit	Line	Data
b777e99d	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
3667e536	11	unless (defined do $real_test) {
	12	die "$real_test: $@" if $@;
	13	die "$real_test: $!" if $!;
	14	}