File Coverage

blib/lib/Devel/AssertOS/MicrosoftWindows.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             # $Id: MicrosoftWindows.pm,v 1.6 2008/11/05 22:52:34 drhyde Exp $
2              
3             package Devel::AssertOS::MicrosoftWindows;
4              
5 2     2   11 use Devel::CheckOS;
  2         4  
  2         61  
6 2     2   15 use strict;
  2         4  
  2         31  
7 2     2   7 use warnings;
  2         5  
  2         46  
8 2     2   9 no warnings 'redefine';
  2         4  
  2         188  
9              
10             our $VERSION = '1.4';
11              
12 5     5   39 sub matches { return qw(Cygwin MSWin32 MSYS); }
13 2     2   3 sub os_is { Devel::CheckOS::os_is(matches()); }
14             Devel::CheckOS::die_unsupported() unless(os_is());
15              
16 1     1   76 sub expn { "The operating system is some version of Microsoft Windows" }
17              
18             =head1 COPYRIGHT and LICENCE
19              
20             Copyright 2007 - 2008 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;