recommends 'MRO::Compat' if $] < 5.010;
+my $use_xs;
+
+for (@ARGV) {
+ /^--pp$/ and $use_xs = 0;
+ /^--xs$/ and $use_xs = 1;
+}
+
+if(!defined $use_xs){
+ configure_requires 'ExtUtils::CBuilder';
+ require ExtUtils::CBuilder;
+ $use_xs = ExtUtils::CBuilder->new(quiet => 1)->have_compiler();
+}
+
+if($use_xs){
+ require Module::Install::XSUtil;
+ use_ppport(3.19);
+ cc_warnings();
+ cc_src_paths('xs-src');
+
+ print "Mouse configured in XS (--xs)\n";
+}
+else{
+ print "Mouse configured in Pure Perl (--pp)\n";
+}
+
if ($Module::Install::AUTHOR) {
local @INC = ('lib', @INC);
require 'lib/Mouse/Spec.pm';
# some test does not pass... currently skip it.
my %SKIP_TEST = (
'016-trigger.t' => "trigger's argument is incompatble :(",
- '010-isa-or.t' => "Mouse has a [BUG]",
+ '810-isa-or.t' => "Mouse has a [BUG]",
'052-undefined-type-in-union.t' => "Mouse accepts undefined type as a member of union types",
'054-anon-leak.t' => 'Moose has memory leaks',