File Coverage

blib/lib/Devel/AssertOS/Linux/UnknownDebianLike.pm
Criterion Covered Total %
statement 14 15 93.3
branch 1 2 50.0
condition 1 3 33.3
subroutine 5 6 83.3
pod 0 2 0.0
total 21 28 75.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::Linux::UnknownDebianLike;
2              
3 4     4   687 use Devel::CheckOS;
  4         21  
  4         260  
4 4     4   31 use strict;
  4         15  
  4         125  
5 4     4   25 use warnings;
  4         13  
  4         212  
6 4     4   27 no warnings 'redefine';
  4         20  
  4         788  
7              
8             our $VERSION = '1.0';
9              
10             # Can't use() this because that would make an infinite loop at BEGIN-time
11             if(!exists($INC{'Devel/AssertOS/Linux/Debian.pm'})) {
12             require Devel::AssertOS::Linux::Debian;
13             }
14              
15             sub os_is {
16             Devel::CheckOS::os_is('Linux') &&
17             -f '/etc/debian_version' &&
18 10 50 33 10 0 53 Devel::CheckOS::os_isnt(grep { $_ !~ /UnknownDebianLike/ } Devel::AssertOS::Linux::Debian::matches())
  50         161  
19             }
20              
21 0     0 0   sub expn { "The operating system is some derivative of Debian, or possibly a very old version of real Debian" }
22              
23             Devel::CheckOS::die_unsupported() unless(os_is());
24              
25             =head1 COPYRIGHT and LICENCE
26              
27             Copyright 2007 - 2020 David Cantrell
28              
29             This software is free-as-in-speech software, and may be used, distributed, and modified under the terms of either the GNU General Public Licence version 2 or the Artistic Licence. It's up to you which one you use. The full text of the licences can be found in the files GPL2.txt and ARTISTIC.txt, respectively.
30              
31             =cut
32              
33             1;
34