File Coverage

blib/lib/Siebel/AssertOS.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
condition 0 3 0.0
subroutine 3 6 50.0
pod 2 2 100.0
total 14 28 50.0


line stmt bran cond sub pod time code
1             package Siebel::AssertOS;
2 1     1   57913 use warnings;
  1         2  
  1         30  
3 1     1   30 use strict;
  1         6  
  1         37  
4 1     1   222 use Siebel::AssertOS::Validate qw(os_is);
  1         3  
  1         187  
5              
6             our $VERSION = '0.9'; # VERSION
7              
8             sub import {
9 0     0     shift;
10 0           die_if_os_isnt();
11             }
12              
13             sub die_if_os_isnt {
14 0   0 0 1   my $os = shift || $^O;
15 0 0         os_is($os) ? 1 : die_unsupported($os);
16             }
17              
18             sub die_unsupported {
19 0     0 1   my $os = shift;
20 0           die "The operation system $os is not supported";
21             }
22              
23             1;
24              
25             __END__