[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') if !@ARGV;
    $^I = '';
}

next if $ARGV =~ /squirrel/i; # Squirrel tests are for both Moose and Mouse

s/Mouse(?!::Tiny)/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 {
ef42c7fc	6	@ARGV = glob('t/.t t//*.t') if !@ARGV;
dc4a7abe	7	$^I = '';
	8	}
	9
c1d04abf	10	next if $ARGV =~ /squirrel/i; # Squirrel tests are for both Moose and Mouse
c1d04abf	11
99ba3cce	12	s/Mouse(?!::Tiny)/Moose/g;
c1d04abf	13
dc4a7abe	14	s/Moose::(load_class\|is_class_loaded)/Class::MOP::$1/g;
dc4a7abe	15