File Coverage

blib/lib/Devel/AssertOS/VMS.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::VMS;
2              
3 5     5   725 use Devel::CheckOS;
  5         15  
  5         199  
4 5     5   23 use strict;
  5         13  
  5         90  
5 5     5   19 use warnings;
  5         10  
  5         138  
6 5     5   21 no warnings 'redefine';
  5         12  
  5         522  
7              
8             our $VERSION = '1.2';
9              
10 5 100   5   49 sub os_is { $^O =~ /^VMS$/i ? 1 : 0; }
11              
12             Devel::CheckOS::die_unsupported() unless(os_is());
13              
14             =head1 COPYRIGHT and LICENCE
15              
16             Copyright 2007 - 2014 David Cantrell
17              
18             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.
19              
20             =cut
21              
22             1;