blob: fa2014f02a42ae633469303251dd3a6127b25703 (
plain)
- #!/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;
- }
|