File Coverage

blib/lib/JIP/Conf.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	10	10	100.0
condition	8	9	88.8
subroutine	8	8	100.0
pod	0	1	0.0
total	61	63	96.8

package JIP::Conf;

use 5.006;
use strict;
use warnings;
use Hash::AsObject;
use Carp qw(croak);
use English qw(-no_match_vars);

our $VERSION = '0.01';

sub init {
    my ($path_to_file, $path_to_variable) = @ARG;

    # First arg
    croak qq{Bad argument "path_to_file"\n}
        unless defined $path_to_file and length $path_to_file;
    croak(sprintf qq{No such file "%s"\n}, $path_to_file)
        unless -f $path_to_file;

    # Second arg
    croak qq{Bad argument "path_to_variable"\n}
        unless defined $path_to_variable and length $path_to_variable;

    # Require file
    eval { require $path_to_file } or do {
        croak(sprintf qq{Can't parse config "%s": %s\n}, $path_to_file, $EVAL_ERROR);
    };

    # Fetch hash_ref from package
    my $data_from_file;
    eval {
        no strict 'refs';
        $data_from_file = ${ $path_to_variable };
    };
    if ($EVAL_ERROR or ref $data_from_file ne 'HASH') {
        croak(sprintf qq{Invalid config. Can't fetch \${%s} from "%s"\n}, $path_to_variable, $path_to_file);
    }

    return Hash::AsObject->new($data_from_file);
}

1;

__END__