NAME
URI::VersionRange::Version - Version scheme helper class
SYNOPSIS
package URI::VersionRange::Scheme::generic {
use Version::libversion::XS qw(version_compare2);
use parent 'URI::VersionRange::Version';
use overload ('cmp' => \&compare, '<=>' => \&compare, fallback => 1);
sub compare {
my ($left, $right) = @_;
return version_compare2($left->[0], $right->[0]);
}
}
my $vers = URI::VersionRange->from_string('vers:generic/>v1.00|!=v2.10|<=v3.00');
if ($vers->contains('v2.50')) {
# do stuff
}
DESCRIPTION
This is a base class for the version scheme helper.
OBJECT-ORIENTED INTERFACE
new
$v = URI::VersionRange::Version->new( $value )
Create new URI::VersionRange::Version instance using provided version value.
compare
$v->compare
Compare the version
from_native
$v->from_native( $native_range )
Convert the native range of the scheme into a VERS string.
load
$class = URI::VersionRange::Version->load( $scheme )
Load scheme class.
HOW TO CREATE A NEW SCHEME COMPARATOR CLASS
Create a new package using the naming convention
URI::VersionRange::Scheme::<scheme>by extending URI::VersionRange::Version.Implements the
compare($left, $right)subroutine with the algorithm required by thescheme.$leftand$rightarguments ofcompareareARRAYand have as their first element the value of the version to be compared.overload
'<=>'andcmpoperators usingcomparesubroutine (MANDATORY)Implement the
from_native($self, $native)subroutine to convert the native range of the scheme into a VERS string
This is an example that implements a comparator for the generic scheme using Version::libversion::XS module:
package URI::VersionRange::Scheme::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]);
}
}
This is an another example for the rpm scheme using RPM4 module:
package URI::VersionRange::Scheme::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]);
}
}
SUPPORT
Bugs / Feature Requests
Please report any bugs or feature requests through the issue tracker at https://github.com/giterlizzi/perl-URI-PackageURL/issues. You will be notified automatically of any progress on your issue.
Source Code
This is open source software. The code repository is available for public review and contribution under the terms of the license.
https://github.com/giterlizzi/perl-URI-PackageURL
git clone https://github.com/giterlizzi/perl-URI-PackageURL.git
AUTHOR
Giuseppe Di Terlizzi <gdt@cpan.org>
LICENSE AND COPYRIGHT
This software is copyright (c) 2022-2026 by Giuseppe Di Terlizzi.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.