File Coverage

blib/lib/Religion/Bible/Regex/Config.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Religion::Bible::Regex::Config;

use warnings;
use strict;
use Carp;

use version; our $VERSION = '0.61';

use YAML::Loader;

# Input files are assumed to be in the UTF-8 strict character encoding.
#use utf8;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

sub new {
    my $class = shift;
    my $self = {};
    my $config = shift;

    bless ($self, $class);

    croak "Religion::Bible::Regex::Config must be initialize with a string which containing either a the location of a YAML file or actual YAML" unless (defined($config));

    # If $config is a file that exists
    # Crud method for testing that this is not YAML --> m/\n/ == 0
    if ($config =~ m/\n/ == 0 && -e $config) {
        $self->{config} = $self->_read_yaml_file($config);
    } else {
       my $yaml_loader = YAML::Loader->new();
       $self->{config} = $yaml_loader->load($config);
    }

    return $self;
}

sub get {
    my $self = shift;
    my @keys = @_;

    my $ret = $self->{config};
    foreach my $key (@keys) {
#        carp "Configuration not found: {$key}" unless defined($ret->{$key});
        $ret = $ret->{$key};
    }
    return $ret;
}

sub get_or_undef {
    my $self = shift;
    my @keys = @_;

    my $ret = $self->{config};
    foreach my $key (@keys) {
        return unless defined($ret->{$key});
        $ret = $ret->{$key};
    }
    return $ret;
}


# These getter functions are very important to have right.
sub get_bookname_configurations {
	return shift->{'config'}{'books'};
}

sub get_search_configurations {
	return shift->{'config'}{'regex'};
}

sub get_formatting_configurations {
	return shift->{'config'}{'reference'};
}

sub get_versification_configurations {
	return shift->{'config'}{'versification'};
}

sub _read_yaml_file {
    my $self = shift;
    my $path_to_config_file = shift;
    my $config;

    my $yaml_loader = YAML::Loader->new();
    my $yaml_text;

    # Vous ouvrez le fichier de configuration
    if(open(*CONFIG, "<:encoding(UTF-8)", $path_to_config_file)) {
        {
            local( $/, *FH );
            $yaml_text = ;  # slurp it
        }
        $config = $yaml_loader->load($yaml_text);
    	close (CONFIG);
    }

    return $config;
}
1; # Magic true value required at end of module
__END__