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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
############################################################################
#
# PostgreSQL/Version.pm
#
# Module encapsulating Postgres Version numbers
#
# Copyright (c) 2021-2022, PostgreSQL Global Development Group
#
############################################################################
=pod
=head1 NAME
PostgreSQL::Version - class representing PostgreSQL version numbers
=head1 SYNOPSIS
use PostgreSQL::Version;
my $version = PostgreSQL::Version->new($version_arg);
# compare two versions
my $bool = $version1 <= $version2;
# or compare with a number
$bool = $version < 12;
# or with a string
$bool = $version lt "13.1";
# interpolate in a string
my $stringyval = "version: $version";
# get the major version
my $maj = $version->major;
=head1 DESCRIPTION
PostgreSQL::Version encapsulates Postgres version numbers, providing parsing
of common version formats and comparison operations.
=cut
package PostgreSQL::Version;
use strict;
use warnings;
use Scalar::Util qw(blessed);
use overload
'<=>' => \&_version_cmp,
'cmp' => \&_version_cmp,
'""' => \&_stringify;
=pod
=head1 METHODS
=over
=item PostgreSQL::Version->new($version)
Create a new PostgreSQL::Version instance.
The argument can be a number like 12, or a string like '12.2' or the output
of a Postgres command like `psql --version` or `pg_config --version`;
=back
=cut
sub new
{
my $class = shift;
my $arg = shift;
chomp $arg;
# Accept standard formats, in case caller has handed us the output of a
# postgres command line tool
my $devel;
($arg, $devel) = ($1, $2)
if (
$arg =~ m!^ # beginning of line
(?:\(?PostgreSQL\)?\s)? # ignore PostgreSQL marker
(\d+(?:\.\d+)*) # version number, dotted notation
(devel|(?:alpha|beta|rc)\d+)? # dev marker - see version_stamp.pl
!x);
# Split into an array
my @numbers = split(/\./, $arg);
# Treat development versions as having a minor/micro version one less than
# the first released version of that branch.
push @numbers, -1 if ($devel);
$devel ||= "";
return bless { str => "$arg$devel", num => \@numbers }, $class;
}
# Routine which compares the _pg_version_array obtained for the two
# arguments and returns -1, 0, or 1, allowing comparison between two
# PostgreSQL::Version objects or a PostgreSQL::Version and a version string or number.
#
# If the second argument is not a blessed object we call the constructor
# to make one.
#
# Because we're overloading '<=>' and 'cmp' this function supplies us with
# all the comparison operators ('<' and friends, 'gt' and friends)
#
sub _version_cmp
{
my ($a, $b, $swapped) = @_;
$b = __PACKAGE__->new($b) unless blessed($b);
($a, $b) = ($b, $a) if $swapped;
my ($an, $bn) = ($a->{num}, $b->{num});
for (my $idx = 0;; $idx++)
{
return 0
if ($idx >= @$an && $idx >= @$bn);
# treat a missing number as 0
my ($anum, $bnum) = ($an->[$idx] || 0, $bn->[$idx] || 0);
return $anum <=> $bnum
if ($anum <=> $bnum);
}
}
# Render the version number using the saved string.
sub _stringify
{
my $self = shift;
return $self->{str};
}
=pod
=over
=item major([separator => 'char'])
Returns the major version. For versions before 10 the parts are separated by
a dot unless the separator argument is given.
=back
=cut
sub major
{
my ($self, %params) = @_;
my $result = $self->{num}->[0];
if ($result + 0 < 10)
{
my $sep = $params{separator} || '.';
$result .= "$sep$self->{num}->[1]";
}
return $result;
}
1;
|
