File Coverage

blib/lib/CPANPLUS/Dist/Debora/Package/Mageia.pm

Criterion	Covered	Total	%
statement	18	26	69.2
branch	1	4	25.0
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	26	38	68.4

package CPANPLUS::Dist::Debora::Package::Mageia;

# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later

use 5.016;
use warnings;
use utf8;

our $VERSION = '0.010';

use parent qw(CPANPLUS::Dist::Debora::Package::RPM);

use CPANPLUS::Dist::Debora::Util qw(parse_version);

sub format_priority {
    my $class = shift;

    my $priority = 0;
    if (-f '/etc/mageia-release') {
        $priority = $class->SUPER::format_priority;
        if ($priority > 0) {
            $priority = 3;
        }
    }

    return $priority;
}

## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)

sub _normalize_version {
    my ($self, $dist_version) = @_;

    my $version = $self->SUPER::_normalize_version($dist_version);
    $version = parse_version($version)->normal;
    $version =~ s{\A v}{}xms;

    return $version;
}

1;
__END__