use warnings FATAL => 'all';
use File::Path qw(mkpath);
use File::Find;
+use File::Basename qw(basename dirname);
use autodie;
my($moose_dir, $result) = @ARGV;
my @tests;
sub wanted {
return if /native_traits/;
- (my $mouse_test = $_) =~ s{\A $moose_dir/t }{$result}xmso;
- (my $mouse_failing_test = $_) =~ s{\A $moose_dir/t }{$result-failing}xmso;
+ my $file = $_;
+ (my $basename = basename($file)) =~ s/Moose/Mouse/g;
+ $file = dirname($file) . '/' . $basename;
+ (my $test = $file) =~ s{\A $moose_dir/t }{$result}xmso;
+ (my $failing_test = $file) =~ s{\A $moose_dir/t }{$result-failing}xmso;
if( -d $_ ) {
- mkpath [$mouse_test, $mouse_failing_test];
+ mkpath [$test, $failing_test];
return;
}
- copy_as_mouse($_ => $mouse_test);
- push @tests, [$mouse_test, $mouse_failing_test]
- if $mouse_test =~/\.t\z/xms;
+ copy_as_mouse($_ => $test);
+ push @tests, [$test, $failing_test]
+ if $file =~/\.t\z/xms;
return;
}
say $out "# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!";
say $out 'use t::lib::MooseCompat;';
}
- s/\b Class::MOP::([a-z_]+) \b/Mouse::Util::$1/xmsg;
- s/\b Class::MOP \b /Mouse::Meta/xmsg;
- s/\b Moose \b/Mouse/xmsg;
+ s/ Class::MOP::([a-z_]+) /Mouse::Util::$1/xmsg;
+ s/ Class::MOP /Mouse::Meta/xmsg;
+ s/ Moose /Mouse/xmsg;
# make classes simple
s{\b(Mouse::Meta::TypeConstraint)::\w+ }{$1}xmsg;