File Coverage

blib/lib/Devel/AssertOS/Linux/Debian.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package Devel::AssertOS::Linux::Debian;
2              
3 4     4   727 use Devel::CheckOS;
  4         10  
  4         193  
4 4     4   21 use strict;
  4         11  
  4         78  
5 4     4   18 use warnings;
  4         7  
  4         118  
6 4     4   17 no warnings 'redefine';
  4         8  
  4         738  
7              
8             our $VERSION = '1.2';
9              
10 17     17 0 67 sub matches { map { "Linux::$_" } qw(Raspbian Ubuntu RealDebian UnknownDebianLike Devuan) }
  85         258  
11              
12 5     5 0 13 sub os_is { Devel::CheckOS::os_is(matches()) }
13              
14 1     1 0 103 sub expn { "The operating system is some derivative of Debian Linux (see Linux::RealDebian for *actual* Debian Linux)" }
15              
16             Devel::CheckOS::die_unsupported() unless(os_is());
17              
18             =head1 COPYRIGHT and LICENCE
19              
20             Copyright 2007 - 2021 David Cantrell
21              
22             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.
23              
24             =cut
25              
26             1;
27