File Coverage

blib/lib/Devel/AssertOS/DEC.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: DEC.pm,v 1.5 2008/11/05 22:52:34 drhyde Exp $
2              
3             package Devel::AssertOS::DEC;
4              
5 3     3   23 use Devel::CheckOS;
  3         6  
  3         161  
6 3     3   19 use strict;
  3         6  
  3         63  
7 3     3   13 use warnings;
  3         7  
  3         84  
8 3     3   20 no warnings 'redefine';
  3         6  
  3         447  
9              
10             our $VERSION = '1.4';
11              
12 6     6   41 sub matches { return qw(OSF VMS); }
13 3     3   7 sub os_is { Devel::CheckOS::os_is(matches()); }
14             Devel::CheckOS::die_unsupported() unless(os_is());
15              
16             sub expn {
17 1     1   88 join("\n",
18             "The operating system is from Digital Equipment Corporation, or was",
19             "originally written by DEC before they were taken over by Compaq/HP"
20             )
21             }
22              
23             =head1 COPYRIGHT and LICENCE
24              
25             Copyright 2023 David Cantrell
26              
27             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.
28              
29             =cut
30              
31             1;