diff options
| -rwxr-xr-x | utils/devel/find-use | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/utils/devel/find-use b/utils/devel/find-use new file mode 100755 index 00000000..fa2014f0 --- /dev/null +++ b/utils/devel/find-use @@ -0,0 +1,59 @@ +#!/usr/bin/perl -w +=head1 NAME + +find-use + +=head1 EXAMPLE + + ~/ledgersmb # utils/devel/find-use + 0.000000 : HTML::Entities + 0.000000 : Locale::Maketext::Lexicon + 0.000000 : Module::Build + ... + +=head1 EXPLINATION + +This util is useful for package builders to identify all the CPAN dependencies we've made. It required Module::CoreList (which is core, but is not yet in any stable +release of perl) to determine if a module is distributed with perl or not. The output reports which version of perl the module is in. If it reports 0.000000, then the +module is not in core perl, and needs to be installed before LedgerSMB will operate. + +=head1 AUTHOR + +http://www.ledgersmb.org/ - The LedgerSMB team + +=head1 LICENSE + +Distributed under the terms of the LedgerSMB code. + +=cut + + +use strict; +use warnings; + +open GREP, "grep -r '^use ' . |"; +use Module::CoreList; + +my %uselines; +while(<GREP>) { + next if /LedgerSMB::/; + next if /use warnings/; + next if /use strict/; + next if /use vars/; + chomp; + my ($file, $useline) = m/^([^:]+):use\s(.*?)$/; + $uselines{$useline}||=[]; + push @{$uselines{$useline}}, $file; +} + +my %modules; +foreach my $useline (keys %uselines) { + + my ($module) = grep { $_ } $useline =~ /(?:base ['"]([a-z:]+)|([a-z:]+)(?:\s|;))/i; + my $version = Module::CoreList->first_release($module); + $modules{$module} = $version||0; +} + +foreach my $mod (sort { $modules{$a} == 0 ? -1 : $modules{$b} == 0 ? 1 : 0 or $a cmp $b } keys %modules) { + printf "%2.6f : %s\n", $modules{$mod}, $mod; +} |