File Coverage

blib/lib/Devel/AssertOS/Apple.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             package Devel::AssertOS::Apple;
2              
3 2     2   11 use Devel::CheckOS;
  2         4  
  2         86  
4 2     2   10 use strict;
  2         3  
  2         37  
5 2     2   7 use warnings;
  2         4  
  2         53  
6 2     2   49 no warnings 'redefine';
  2         5  
  2         259  
7              
8             our $VERSION = '1.3';
9              
10 3     3   21 sub matches { return qw(iOS MacOSX MacOSclassic); }
11 2     2   5 sub os_is { Devel::CheckOS::os_is(matches()); }
12             Devel::CheckOS::die_unsupported() unless(os_is());
13              
14 1     1   82 sub expn { "The operating system is from Apple" }
15              
16             =head1 COPYRIGHT and LICENCE
17              
18             Copyright 2007 - 2008 David Cantrell
19              
20             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.
21              
22             =cut
23              
24             1;