/
ppi_version
68 lines (42 loc) · 1.44 KB
/
ppi_version
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
#!/usr/local/bin/perl
use 5.008;
use strict;
use PPI::App::ppi_version::BDFOY;
use vars qw{$VERSION};
BEGIN {
$| = 1;
$^W = 1;
$VERSION = '0.13';
}
print "brian d foy's ppi_version $VERSION\n";
exit(
PPI::App::ppi_version::BDFOY->main(@ARGV)
);
=encoding utf8
=head1 NAME
ppi_version - brian d foy's version of a Perl Parsing Interface version updater
=head1 SYNOPSIS
# call it like PPI::App::ppi_version
% ppi_version show
% ppi_version change 1.23 1.24
# call it with less typing. With no arguments, it assumes 'show'.
% ppi_version
# with arguments that are not 'show' or 'change', assume 'change'
% ppi_version 1.23 1.24
=head1 DESCRIPTION
B<ppi_version> looks for Perl files in the current directory and
subdirectories and extracts Perl versions.
To change versions, give the existing version that you want to target
and the version you want to change that too. B<ppi_version> does not
try to be smart about this like B<perlreversion> from L<Perl::VERSION>.
=head1 SOURCE AVAILABILITY
This source is part of a Github project:
https://github.com/briandfoy/ppi-app-ppi_version-bdfoy
=head1 AUTHOR
Adam Kennedy wrote the original, and I stole some of the code. I even
inherit from the original.
brian d foy, C<< <briandfoy@pobox.com> >>
=head1 COPYRIGHT
Copyright © 2008-2024, brian d foy briandfoy@pobox.com>. All rights reserved.
You may redistribute this under the same terms as the Artistic License 2.0.
=cut