File Coverage

blib/lib/Devel/AssertOS/OSFeatures/SupportsSiebel.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 3 33.3
total 21 25 84.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::OSFeatures::SupportsSiebel;
2              
3 1     1   48902 use 5.010;
  1         5  
  1         47  
4 1     1   7 use strict;
  1         2  
  1         48  
5 1     1   6 use warnings;
  1         6  
  1         42  
6 1     1   3193 use Devel::CheckOS;
  1         2998  
  1         165  
7              
8             our $VERSION = '0.01';
9              
10 1     1 1 5 sub matches { return qw(Linux AIX Solaris HPUX MSWin32); }
11 1     1 0 3 sub os_is { Devel::CheckOS::os_is( matches() ); }
12             Devel::CheckOS::die_unsupported() unless ( os_is() );
13              
14 0     0 0   sub expn { "The operating system can run Siebel CRM" }
15              
16             1;
17             __END__