File Coverage

blib/lib/Devel/AssertOS/iOS.pm
Criterion Covered Total %
statement 13 14 92.8
branch 1 2 50.0
condition n/a
subroutine 5 6 83.3
pod n/a
total 19 22 86.3


line stmt bran cond sub pod time code
1             package Devel::AssertOS::iOS;
2              
3 6     6   41 use Devel::CheckOS;
  6         46  
  6         323  
4 6     6   32 use strict;
  6         11  
  6         124  
5 6     6   25 use warnings;
  6         10  
  6         249  
6 6     6   26 no warnings 'redefine';
  6         19  
  6         760  
7              
8             our $VERSION = '1.0';
9              
10 6 50   6   60 sub os_is { ( $^O =~ /^iphoneos$/i) ? 1 : 0; }
11              
12 0     0     sub expn { "Apple's iPhone/iPad OS. *NOT* Cisco IOS!" }
13              
14             Devel::CheckOS::die_unsupported() unless(os_is());
15              
16             =head1 COPYRIGHT and LICENCE
17              
18             Copyright 2007 - 2014 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;