Makefile.PL

   1 BEGIN{ $INC{'Module/Install/ExtraTests.pm'} = __FILE__ } # to disable the use of ExtrTests
   2 use strict;
   3 use warnings;
   4 use inc::Module::Install;
   5
   6 system($^X, 'author/generate-mouse-tiny.pl', 'lib/Mouse/Tiny.pm') == 0
   7     or warn "Cannot generate Mouse::Tiny: $!";
   8
   9 name     'Mouse';
  10 all_from 'lib/Mouse.pm';
  11
  12 tests 't/*.t t/*/*.t';
  13
  14 # Scalar::Util < 1.14 has a bug.
  15 # > Fixed looks_like_number(undef) to return false for perl >= 5.009002
  16 requires 'Scalar::Util' => 1.14;
  17
  18 test_requires 'Test::More'      => 0.88;
  19 test_requires 'Test::Exception' => 0.27;
  20 # test_requires 'Test::Output'    => 0.16; # too many dependencies!
  21
  22 include 'Test::Exception'; # work around 0.27_0x (its use of diehook might be wrong)
  23
  24 recommends 'MRO::Compat' if $] < 5.010;
  25
  26 my $use_xs;
  27
  28 for (@ARGV) {
  29     /^--pp$/ and $use_xs = 0;
  30     /^--xs$/ and $use_xs = 1;
  31 }
  32
  33 if(!defined $use_xs){
  34     configure_requires 'ExtUtils::CBuilder';
  35     require ExtUtils::CBuilder;
  36     $use_xs = ExtUtils::CBuilder->new(quiet => 1)->have_compiler();
  37 }
  38
  39 if($use_xs){
  40     require Module::Install::XSUtil;
  41     use_ppport(3.19);
  42     cc_warnings();
  43     cc_src_paths('xs-src');
  44
  45     print "Mouse configured in XS (--xs)\n";
  46 }
  47 else{
  48     print "Mouse configured in Pure Perl (--pp)\n";
  49 }
  50
  51 if (author_context()) {
  52     local @INC = ('lib', @INC);
  53     require 'lib/Mouse/Spec.pm';
  54     my $require_version = Mouse::Spec->MooseVersion;
  55
  56     if (eval{ require Moose; Moose->VERSION($require_version) }) {
  57         if (eval 'use Module::Install::AuthorTests; 1') {
  58             do 'author/create-moose-compatibility-tests.pl';
  59             recursive_author_tests('xt');
  60         } else {
  61             print "you don't have a M::I::AuthorTests.\n";
  62         }
  63     } else {
  64         print "you don't have Moose $require_version. skipping moose compatibility test\n";
  65     }
  66 }
  67
  68 clean_files 'lib/Mouse/Tiny.pm';
  69
  70 WriteAll check_nmake => 0;
  71
  72 sub MY::postamble{
  73     return '' unless author_context() && $use_xs;
  74
  75     # repeat test
  76     # see also ExtUtils::MM_Any::test_via_harness()
  77     my $test_via_harness =  q{$(FULLPERLRUN) -MExtUtils::Command::MM -e}
  78                            .q{ "do 'author/force-pp.pl'; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')"}
  79                            .q{ $(TEST_FILES)} . "\n";
  80
  81     return   qq{test_dynamic :: test_pp\n\n}
  82            . qq{test_pp :: pure_all\n}
  83            . qq{\t} . $test_via_harness;
  84 }
  85