[gitmo/Mouse.git] / author / munge-tests-for-moose.pl

#!/usr/bin/env perl -pl
use strict;
use warnings;

BEGIN {
    @ARGV = glob('t/*.t t/*/*.t');
    $^I = '';
}

s/Mouse/Moose/g;
s/Moose::(load_class|is_class_loaded)/Class::MOP::$1/g;
Commit	Line	Data
dc4a7abe	1	#!/usr/bin/env perl -pl
	2	use strict;
	3	use warnings;
	4
	5	BEGIN {
	6	@ARGV = glob('t/.t t//*.t');
	7	$^I = '';
	8	}
	9
	10	s/Mouse/Moose/g;
	11	s/Moose::(load_class\|is_class_loaded)/Class::MOP::$1/g;
	12