File Coverage

blib/lib/Csistck/Config.pm
Criterion Covered Total %
statement 15 15 100.0
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Csistck::Config;
2              
3 17     17   287 use 5.010;
  17         53  
4 17     17   82 use strict;
  17         26  
  17         414  
5 17     17   87 use warnings;
  17         33  
  17         581  
6              
7 17     17   85 use base 'Exporter';
  17         21  
  17         2931  
8             our @EXPORT_OK = qw(option);
9              
10             # Configuration options
11             my $Config = { };
12              
13             sub option {
14 5     5 0 223 my ($key, $value) = @_;
15              
16             # No key?
17 5 50       19 return 0
18             unless (defined $key);
19            
20 5 100       25 $Config->{$key} = $value
21             if (defined $value);
22            
23 5         18 return $Config->{$key};
24             }
25              
26             1;