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
|
package URI::VersionRange::Version::generic {
use Version::libversion::XS;
use parent 'URI::VersionRange::Version';
use overload ('cmp' => \&compare, '<=>' => \&compare, fallback => 1);
sub compare {
my ($left, $right) = @_;
return version_compare2($left->[0], $right->[0]);
}
}
package URI::VersionRange::Version::rpm {
use RPM4;
use parent 'URI::VersionRange::Version';
use overload ('cmp' => \&compare, '<=>' => \&compare, fallback => 1);
sub compare {
my ($left, $right) = @_;
return rpmvercmp($left->[0], $right->[0]);
}
}
1;
|
