8 Makes sure that all of the modules that are 'use'd are listed in the
9 Makefile.PL as dependencies.
15 eval 'use Module::CoreList';
16 if ($@) { plan skip_all => 'Module::CoreList not installed' }
21 if( -f 'MANIFEST.SKIP' ) {
23 open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open manifest skip file";
31 find( \&wanted, qw/ lib t / );
35 return if $File::Find::dir =~ m!/.git($|/)!;
36 return if $File::Find::name =~ /~$/;
37 return if $File::Find::name =~ /\.(pod|html)$/;
38 return if $skipped{$File::Find::name};
40 # read in the file from disk
43 open( FILE, $filename ) or return;
47 # strip pod, in a really idiotic way. Good enough though
48 $data =~ s/^=head.+?(^=cut|\Z)//gms;
50 # look for use and use base statements
51 $used{$1}{$File::Find::name}++ while $data =~ /^\s*use\s+([\w:]+)/gm;
52 while ( $data =~ m|^\s*use base qw.([\w\s:]+)|gm ) {
53 $used{$_}{$File::Find::name}++ for split ' ', $1;
60 ok( open( MAKEFILE, "Makefile.PL" ), "Opened Makefile" );
61 my $data = <MAKEFILE>;
63 while ( $data =~ /^\s*?(?:requires|recommends|).*?([\w:]+)'(?:\s*=>\s*['"]?([\d\.]+)['"]?)?.*?(?:#(.*))?$/gm ) {
65 if ( defined $3 and length $3 ) {
66 $required{$_} = undef for split ' ', $3;
71 for ( sort keys %used ) {
72 my $first_in = Module::CoreList->first_release($_);
73 next if defined $first_in and $first_in <= 5.00803;
74 next if /^(Text::Tradition|inc|t|feature)(::|$)/;
77 ok( exists $required{$_}, "$_ in Makefile.PL" )
78 or diag( "used in ", join ", ", sort keys %{ $used{$_} } );
83 for ( sort keys %required ) {
84 my $first_in = Module::CoreList->first_release( $_, $required{$_} );
85 fail("Required module $_ (v. $required{$_}) is in core since $first_in")
86 if defined $first_in and $first_in <= 5.008003;