File Coverage

blib/lib/Devel/AssertOS/MSYS.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::MSYS;
2              
3 4     4   690 use Devel::CheckOS;
  4         6  
  4         133  
4 4     4   17 use strict;
  4         6  
  4         60  
5 4     4   19 use warnings;
  4         6  
  4         83  
6 4     4   16 no warnings 'redefine';
  4         8  
  4         460  
7              
8             our $VERSION = '1.0';
9              
10 4 100   4   41 sub os_is { $^O =~ /^msys2?$/i ? 1 : 0; }
11              
12             sub expn {
13 1     1   60 join("\n",
14             "The operating system is Microsoft Windows, but this perl",
15             "is part of MSYS (or MSYS2), part of MinGW"
16             )
17             }
18              
19             Devel::CheckOS::die_unsupported() unless(os_is());
20              
21             =head1 COPYRIGHT and LICENCE
22              
23             Copyright 2007 - 2020 David Cantrell
24              
25             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.
26              
27             =cut
28              
29             1;