From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BRIANDFOY / Module-Extract-DeclaredMinimumPerl-1.025 / examples / extract_modules 

            

              
1
2
3
4
5
6
—
7
8
9
10
11
12
13
14
15
16
17
18
—
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
—
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115

              
#!/usr/bin/perl
use strict;
use warnings;
use Pod::Usage;
=head1 NAME
extract_modules - determine which Perl modules a given file uses
=head1 VERSION
Version 1.10
=cut
our $VERSION = '1.10';
=head1 SYNOPSIS
Use: extract_modules filename [...]
Given Perl files, extract and report the Perl modules included
with C<use> or C<require>.
=head1 DESCRIPTION
This script does not execute the code in the files it examines. It
uses the C<Module::Extract::Use> or C<Module::ExtractUse> modules
which statically analyze the source without compiling or running it.
These modules cannot discover modules loaded dynamically through a a
string eval.
=cut
# if no parameters are passed, give usage information
unless( @ARGV ) {
        pod2usage( msg => 'Please supply at least one filename to analyze' );
        exit;
        }
my( $object, $method );
my @classes = qw( Module::Extract::Use Module::ExtractUse );
my %methods = qw(
        Module::Extract::Use get_modules
        Module::ExtractUse   extract_use
        );
foreach my $module ( @classes ) {
        eval "require $module";
        next if $@;
        ( $object, $method ) = ( $module->new, $methods{$module} );
        }
die "No usable file scanner module found; exiting...\n" unless defined $object;
foreach my $file ( @ARGV ) {
        unless ( -r $file ) {
                printf STDERR "Could not read $file\n";
                next;
                }
        dump_list( $file, sort $object->$method( $file ) );
        }
BEGIN {
my $corelist = eval { require Module::CoreList };
sub dump_list {
        my( $file, @modules ) = @_;
        printf "Modules required by %s:\n", $file;
        my( $core, $extern ) = ( 0, 0 );
        foreach my $module ( @modules ) {
                printf " - $module%s\n",
                                $corelist
                                        ?
                                        do {
                                                my $v = Module::CoreList->first_release( $module );
                                                $core++ if $v;
                                                $v ? " (first released with Perl $v)" : '';
                                                }
                                        :
                                        do { $extern++; '' }
                }
        printf "%d module(s) in core, %d external module(s)\n\n", $core, $extern;
        }
}
=head1 AUTHORS
Jonathan Yu C<< <frequency@cpan.org> >>
brian d foy C<< <briandfoy@pobox.com> >>
=head1 COPYRIGHT & LICENSE
Copyright © 2009-2015, brian d foy <briandfoy@pobox.com>. All rights reserved.
You can use this script under the same terms as Perl itself.
=head1 SEE ALSO
L<Module::Extract::Use>,
L<Module::ExtractUse>,
L<Module::ScanDeps>,
=cut