File Coverage

blib/lib/Devel/AssertOS/OSF.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::OSF;
2              
3 8     8   733 use Devel::CheckOS;
  8         20  
  8         336  
4 8     8   119 use strict;
  8         19  
  8         154  
5 8     8   40 use warnings;
  8         19  
  8         235  
6 8     8   37 no warnings 'redefine';
  8         22  
  8         893  
7              
8             our $VERSION = '1.2';
9              
10 10 100   10   91 sub os_is { $^O =~ /^dec_osf$/i ? 1 : 0; }
11              
12 1     1   89 sub expn { "OSF is also known as OSF/1, Digital Unix, and Tru64 Unix" }
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;