File Coverage

blib/lib/Devel/AssertOS/MacOSX/v10_8.pm
Criterion Covered Total %
statement 13 14 92.8
branch 1 2 50.0
condition 1 3 33.3
subroutine 5 6 83.3
pod n/a
total 20 25 80.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::MacOSX::v10_8;
2              
3 1     1   7 use Devel::CheckOS;
  1         2  
  1         33  
4 1     1   5 use strict;
  1         1  
  1         31  
5 1     1   5 use warnings;
  1         1  
  1         24  
6 1     1   4 no warnings 'redefine';
  1         1  
  1         136  
7              
8             our $VERSION = '1.0';
9              
10             sub os_is {
11 1 50 33 1   5 Devel::CheckOS::os_is('MacOSX') &&
12             `sw_vers -productVersion` =~ /^10\.8\./ ? 1 : 0;
13             }
14              
15 0     0     sub expn { "The operating system is some version of OS X Mountain Lion (10.8)" }
16              
17             Devel::CheckOS::die_unsupported() unless(os_is());
18              
19             =head1 COPYRIGHT and LICENCE
20              
21             Copyright 2007 - 2008 David Cantrell
22              
23             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.
24              
25             =cut
26              
27             1;
28