Scroll to navigation

URI::VersionRange::Version(3pm) User Contributed Perl Documentation URI::VersionRange::Version(3pm)

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 the "scheme".

    $left and $right arguments of "compare" are "ARRAY" and have as their first element the value of the version to be compared.

  • overload '<=>' and "cmp" operators using "compare" subroutine (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.

2026-01-31 perl v5.40.1