File Coverage

blib/lib/BenchmarkAnything/Config.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	3	6	50.0
condition	3	5	60.0
subroutine	5	5	100.0
pod	1	1	100.0
total	39	45	86.6

use strict;
use warnings;
package BenchmarkAnything::Config;
BEGIN {
  $BenchmarkAnything::Config::AUTHORITY = 'cpan:SCHWIGON';
}
# ABSTRACT: Read BenchmarkAnything configfile
$BenchmarkAnything::Config::VERSION = '0.001';

sub new
{
        my $class = shift;
        my $self  = bless { @_ }, $class;
        $self->_read_config;
        return $self;
}


sub _read_config
{
        my ($self) = @_;

        require File::HomeDir;
        require YAML::Any;

        # don't look into user's homedir if we are running tests
        my $default_cfgfile = $ENV{HARNESS_ACTIVE} ? "t/benchmarkanything.cfg" : File::HomeDir->my_home . "/.benchmarkanything/default.cfg";

        # read file
        eval {
                $self->{cfgfile} = $self->{cfgfile} || $ENV{BENCHMARKANYTHING_CONFIGFILE} || $default_cfgfile;
                my $cfg_yaml;
                open (my $CFG, "<", $self->{cfgfile}) or die "Can't read: ".$self->{cfgfile}."\n";
                {
                        local $/;
                        $cfg_yaml = <$CFG>;
                }
                my $config = YAML::Any::Load($cfg_yaml);
                $self->{benchmarkanything} = $config->{benchmarkanything};
        };
        if ($@)
        {
                die "benchmarkanything: error loading configfile: $@\n";
        }

        # defaults
        $self->{benchmarkanything}{backend} ||= 'local';

        return $self;
}

1;

__END__