File Coverage

blib/lib/Csistck/Config.pm
Criterion Covered Total %
statement 16 16 100.0
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             package Csistck::Config;
2              
3 17     17   276 use 5.010;
  17         52  
  17         660  
4 17     17   86 use strict;
  17         46  
  17         522  
5 17     17   93 use warnings;
  17         45  
  17         476  
6              
7 17     17   92 use base 'Exporter';
  17         32  
  17         2931  
8             our @EXPORT_OK = qw(option);
9              
10             # Configuration options
11             my $Config = { };
12              
13             sub option {
14 5     5 0 647 my ($key, $value) = @_;
15              
16             # No key?
17 5 50       17 return 0
18             unless (defined $key);
19            
20 5 100       25 $Config->{$key} = $value
21             if (defined $value);
22            
23 5         19 return $Config->{$key};
24             }
25              
26             1;