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 |
11 | ||
99ba3cce | 12 | s/Mouse(?!::Tiny)/Moose/g; |
c1d04abf | 13 | |
dc4a7abe | 14 | s/Moose::(load_class|is_class_loaded)/Class::MOP::$1/g; |
15 |