File Coverage

blib/lib/URI/VersionRange/Version.pm

Criterion	Covered	Total	%
statement	54	57	94.7
branch	3	4	75.0
condition	2	3	66.6
subroutine	17	19	89.4
pod	4	4	100.0
total	80	87	91.9

package URI::VersionRange::Version;

use feature ':5.10';
use strict;
use utf8;
use warnings;

use URI::VersionRange::Util qw(generic_version_compare);

use overload ('cmp' => \&compare, '<=>' => \&compare, fallback => 1);

use constant DEBUG => $ENV{VERS_DEBUG};

our $VERSION = '2.25';

sub load {

    my ($class, $scheme) = @_;

    $scheme = lc $scheme;

    my @CLASSES = (
        join('::', 'URI::VersionRange::Scheme',  lc($scheme)),    # Scheme specific
        join('::', 'URI::VersionRange::Version', lc($scheme)),    # Scheme specific (legacy naming convention)
    );

    foreach my $version_class (@CLASSES) {

        if ($version_class->can('new') or eval "require $version_class; 1") {
            DEBUG and say STDERR "-- Loaded '$version_class' class";
            return $version_class;
        }

        DEBUG and say STDERR "-- (E) Failed to load '$version_class' class: $@" if $@;

    }

    return $class;

}

sub new { my $class = shift; bless [@_], $class }

sub scheme {
    return (split(/\:\:/, shift, 4))[3];
}

sub compare {
    my ($left, $right) = @_;
    return generic_version_compare($left->[0], $right->[0]);
}

# CPAN

package    # hide from pause
    URI::VersionRange::Scheme::cpan {
    use parent 'URI::VersionRange::Version';

    use version();
    use overload ('cmp' => \&compare, '<=>' => \&compare, fallback => 1);

    sub compare {
        my ($left, $right) = @_;
        return (version->parse($left->[0]) <=> version->parse($right->[0]));
    }
}

# PyPi

package    # hide from pause
    URI::VersionRange::Scheme::pypi {
    use parent 'URI::VersionRange::Version';

    use version();
    use overload ('cmp' => \&compare, '<=>' => \&compare, fallback => 1);

    sub compare {
        my ($left, $right) = @_;
        return (version->parse($left->[0]) <=> version->parse($right->[0]));
    }
}

1;

__END__