The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

JONASBN / Module-Info-File-0.01 / bin / version.pl 

            

              
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

              
#!/usr/bin/perl -w
# $Id: version.pl,v 1.2 2003/09/28 09:19:47 jonasbn Exp $
use strict;
use Module::Info;
use Data::Dumper;
my $debug = 0;
my $modulepath;
if ($ARGV[0]) {
        $modulepath = $ARGV[0];
} else {
        usage();
}
my $m;
if ($modulepath =~ m/::/) {
        $m = Module::Info->new_from_module($modulepath);
} elsif ($modulepath =~ m/.*\.pm$/) {
        $m = Module::Info->new_from_file($modulepath);
} else {
        $m = Module::Info->new_from_module($modulepath);
}
print STDERR Dumper $m if $debug;
print $m->name." located in ".$m->inc_dir." is version: ".$m->version."\n";
exit(0);
sub usage {
        print "Usage: version.pl [<modulename>] [<modulepath>]\n";
        exit(0);
}
__END__
=head1 NAME
version.pl - extracts module data from installed and uninstalled modules
=head1 SYNOPSIS
% version.pl DBI
% version.pl XML::Simple
% version.pl ~jonasbn/Develop/Games/Bingo/lib/Games/Bingo.pm
=cut
=head1 DESCRIPTION
The script takes either a module name (SEE SYNOPSIS) or a path to a
Perl module or script file.
The script looks for a B<package> definition and a version file.
The script is quite simple, the Module::Info::File and Mattia Barbon's
Module::Info holds all the interesting stuff.
In the beginning I was using Module::Info, but due to a lacking
functionality in this module I created Module::Info::File, which
inherits from Module::Info and replaces the B<new_from_file> method so
the lacking data can be accessed. Apart from that you can use all the
neat accessors from Module::Info. 
=cut
=head1 SEE ALSO
=over 4
=item Module::Info
=item Module::Info::File
=back
=cut
=head1 AUTHOR
jonasbn E<lt>jonasbn@cpan.orgE<gt>
=cut
=head1 COPYRIGHT
version.pl is free software and is released under
the Artistic License. See
E<lt>http://www.perl.com/language/misc/Artistic.htmlE<gt> for details.
version.pl is (C) 2003 Jonas B. Nielsen (jonasbn)
E<lt>jonasbn@cpan.orgE<gt>
=cut