File Coverage

blib/lib/Devel/AssertOS/MacOSX/v10_5.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 6 100.0
pod n/a
total 22 25 88.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::MacOSX::v10_5;
2              
3 1     1   6 use Devel::CheckOS;
  1         2  
  1         35  
4 1     1   5 use strict;
  1         1  
  1         16  
5 1     1   5 use warnings;
  1         1  
  1         23  
6 1     1   4 no warnings 'redefine';
  1         2  
  1         106  
7              
8             our $VERSION = '1.0';
9              
10             sub os_is {
11 1 50 33 1   4 Devel::CheckOS::os_is('MacOSX') &&
12             `sw_vers -productVersion` =~ /^10\.5\./ ? 1 : 0;
13             }
14              
15 1     1   65 sub expn { "The operating system is some version of OS X Leopard (10.5)" }
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;