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


line stmt bran cond sub pod time code
1             package CPANPLUS::Dist::Debora::Package::Mageia;
2              
3             # SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
4              
5 3     3   29027 use 5.016;
  3         23  
6 3     3   19 use warnings;
  3         7  
  3         100  
7 3     3   16 use utf8;
  3         7  
  3         21  
8              
9             our $VERSION = '0.009';
10              
11 3     3   167 use parent qw(CPANPLUS::Dist::Debora::Package::RPM);
  3         8  
  3         22  
12              
13 3     3   210 use CPANPLUS::Dist::Debora::Util qw(parse_version);
  3         7  
  3         532  
14              
15             sub format_priority {
16 2     2 1 7 my $class = shift;
17              
18 2         6 my $priority = 0;
19 2 50       60 if (-f '/etc/mageia-release') {
20 0         0 $priority = $class->SUPER::format_priority;
21 0 0       0 if ($priority > 0) {
22 0         0 $priority = 3;
23             }
24             }
25              
26 2         12 return $priority;
27             }
28              
29             ## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
30              
31             sub _normalize_version {
32 0     0     my ($self, $dist_version) = @_;
33              
34 0           my $version = $self->SUPER::_normalize_version($dist_version);
35 0           $version = parse_version($version)->normal;
36 0           $version =~ s{\A v}{}xms;
37              
38 0           return $version;
39             }
40              
41             1;
42             __END__