File Coverage

blib/lib/Devel/AssertOS/QNX.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             # $Id: QNX.pm,v 1.2 2008/10/27 20:31:21 drhyde Exp $
2              
3             package Devel::AssertOS::QNX;
4              
5 5     5   33 use Devel::CheckOS;
  5         8  
  5         251  
6 5     5   26 use strict;
  5         8  
  5         113  
7 5     5   37 use warnings;
  5         10  
  5         182  
8 5     5   20 no warnings 'redefine';
  5         10  
  5         772  
9              
10             our $VERSION = '1.2';
11              
12 7     7   44 sub matches { return qw(QNX::v4 QNX::Neutrino); }
13 5     5   12 sub os_is { Devel::CheckOS::os_is(matches()); }
14             sub expn {
15 1     1   63 join("\n",
16             "All versions of QNX match this, as well as (possibly) a more specific",
17             "match"
18             )
19             }
20             Devel::CheckOS::die_unsupported() unless(os_is());
21              
22             =head1 COPYRIGHT and LICENCE
23              
24             Copyright 2007 - 2008 David Cantrell
25              
26             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.
27              
28             =cut
29              
30             1;