Released version 0.28

Changes

@@ -1,4 +1,9 @@
 ---
+version: 0.28
+date:    Sat Aug 20 18:20:15 CEST 2011
+changes:
+- skip author requires for modules that have a Module::Install plugin
+---
 version: 0.27
 date:    Fri Aug 19 20:57:02 EEST 2011
 changes:

Makefile.PL

@@ -1,4 +1,4 @@
-use inc::Module::Package 'Ingy:modern 0.14';
+use inc::Module::Package 'Ingy:modern 0.15';
 
 # The default module 'lib/Module/Package.pm' has to be very strict
 # and minimal, so we get much of the package info from here:

lib/Module/Install/Package.pm

@@ -15,7 +15,7 @@ use strict;
 use Module::Install::Base;
 use vars qw'@ISA $VERSION';
 @ISA = 'Module::Install::Base';
-$VERSION = '0.27';
+$VERSION = '0.28';
 
 #-----------------------------------------------------------------------------#
 # XXX BOOTBUGHACK

lib/Module/Package.pm

@@ -14,7 +14,7 @@ use 5.005;
 use strict;
 
 BEGIN {
-    $Module::Package::VERSION = '0.27';
+    $Module::Package::VERSION = '0.28';
     $inc::Module::Package::VERSION ||= $Module::Package::VERSION;
     @inc::Module::Package::ISA = __PACKAGE__;
 }

lib/Module/Package/Plugin.pm

@@ -14,7 +14,7 @@ use utf8;
 package Module::Package::Plugin;
 use Moo 0.009008;
 
-our $VERSION = '0.27';
+our $VERSION = '0.28';
 
 use Cwd 0 ();
 use File::Find 0 ();
@@ -153,6 +153,12 @@ sub generate_deps_list {
             ManifestSkip Metadata Package PAR Run Scripts Share Win32 With
             WriteAll 
         ));
+    my @skip;
+    for my $module (keys %skip) {
+        if ($skip{"Module::Install::$module"}) {
+            push @skip, "${module}::";
+        }
+    }
     my @inc = ();
     File::Find::find(sub {
         return unless -f $_ and $_ =~ /\.pm$/;
@@ -161,8 +167,9 @@ sub generate_deps_list {
         return if -e "$base/lib/$module.pm";
         $module =~ s!/+!::!g;
         return if $skip{$module};
-        return if $module =~ /^Test::Base::/;
-        return if $module =~ /^Pegex::/;
+        for my $prefix (@skip) {
+            return if $module =~ /^\Q$prefix\E/;
+        }
         push @inc, $module;
     }, 'inc');
     if (grep /^Module::Install::TestBase$/, @inc) {
@@ -251,7 +258,13 @@ sub check_use_test_base {
 
 sub check_use_testml {
     my ($self) = @_;
-    if (-e 't/testml') {
+    my $found = 0;
+    File::Find::find(sub {
+        return unless -f $_ and $_ =~ /\.t$/;
+        return unless io($_)->all =~ /\buse TestML\b/;
+        $found = 1;
+    }, 't');
+    if ($found or -e 't/testml') {
         $self->mi->use_testml;
     }
 }

lib/inc/Module/Package.pm

@@ -12,7 +12,7 @@ package inc::Module::Package;
 # Use BEGIN so unshift runs before use.
 BEGIN {
     # This version is here in case of emergencies.
-    $inc::Module::Package::VERSION = '0.27';
+    $inc::Module::Package::VERSION = '0.28';
 
     # Borrowed from inc::Module::Install...
     my $author = $^O eq 'VMS' ? './inc/_author' : './inc/.author';