File Coverage

blib/lib/EPublisher/Config.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition 3 3 100.0
subroutine 5 5 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package EPublisher::Config;
2              
3             # ABSTRACT: Config module for EPublisher
4 10     10   711 use strict;
  10         21  
  10         281  
5 10     10   53 use warnings;
  10         17  
  10         217  
6 10     10   50 use Carp;
  10         14  
  10         558  
7 10     10   5611 use YAML::Tiny;
  10         57565  
  10         1373  
8              
9             our $VERSION = 0.01;
10              
11             sub get_config{
12 8     8 1 2231 my ($class,$file) = @_;
13            
14 8 100 100     520 croak "No (existant) config file given!" unless defined $file and -e $file;
15 6         42 my $config = YAML::Tiny->read( $file )->[0];
16            
17 6         53009 return $config;
18             }
19              
20             1;
21              
22             __END__