File Coverage

blib/lib/Devel/AssertOS/MacOSX/v10_4.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             # $Id: v10_4.pm,v 1.4 2008/11/05 22:52:35 drhyde Exp $
2              
3             package Devel::AssertOS::MacOSX::v10_4;
4              
5 1     1   6 use Devel::CheckOS;
  1         2  
  1         35  
6 1     1   5 use strict;
  1         3  
  1         16  
7 1     1   3 use warnings;
  1         2  
  1         25  
8 1     1   4 no warnings 'redefine';
  1         4  
  1         120  
9              
10             our $VERSION = '1.4';
11              
12             sub os_is {
13 1 50 33 1   4 Devel::CheckOS::os_is('MacOSX') &&
14             `sw_vers -productVersion` =~ /^10\.4\./ ? 1 : 0;
15             }
16              
17 1     1   75 sub expn { "The operating system is some version of OS X Tiger (10.4)" }
18              
19             Devel::CheckOS::die_unsupported() unless(os_is());
20              
21             =head1 COPYRIGHT and LICENCE
22              
23             Copyright 2007 - 2008 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;