[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//;

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