File Coverage

blib/lib/oEdtk/Dict.pm

Criterion	Covered	Total	%
statement	25	46	54.3
branch	2	12	16.6
condition	3	12	25.0
subroutine	5	7	71.4
pod	0	3	0.0
total	35	80	43.7

package oEdtk::Dict;
use strict;
use warnings;

use Config::IniFiles;
use Exporter;
our $VERSION	= 0.7012;
our @ISA		= qw(Exporter);

# Création d'un dictionnaire à partir d'un fichier INI.
sub new {
	my ($class, $path, $options) = @_;

	my $invert      = $options->{'invert'} || 0;
	my $section     = $options->{'section'} || 'DEFAULT';
	my $ignore_case = $options->{'ignore_case'} || 1;

	# warn "INFO : Path EDTK_DICO >$path< \n";
	tie my %ini, 'Config::IniFiles',
	    (-file => $path, -default => $section);

	my $dico = $ini{$section};
	if ($invert) {
		# Inversion du hash.
		my %tr = ();
		while (my ($key, $val) = each %$dico) {
			if (ref($val) eq 'ARRAY') {
				$tr{$_} = $key foreach @$val;
			} else {
				$tr{$val} = $key;
			}
		}
		$dico = \%tr;
	}
	if ($ignore_case) {
		my $dico2 = {};
		while (my ($key, $val) = each %$dico) {
			$dico2->{lc($key)} = $val;
		}
		$dico = $dico2;
	}
	my $self = {
		ignore_case => $ignore_case,
		dico        => $dico
	};

# 	warn "INFO : objet Dict $class $self ($section $path) créé...\n";
	return bless $self, $class;
}


sub translate {
	# passer en option 'check' pour demander une vérification de la présence de la valeur dans le dictionnaire
	# si la valeur est absente du dictionnaire, retourne 'undef'
	my ($self, $word, $check) = @_;

	my $key = $word;
	if ($self->{'ignore_case'}) {
		$key = lc($key);
	}
	my $val = $self->{'dico'}->{$key};
	if (!$check && !defined($val)) {
		$val = $word;
	}

return $val;
}


sub substitue {
	my ($self, $var) = @_;
#	warn "DEBUG: Dict::substitute value = '$var'\n";

	if (defined($var) && length($var) > 0) {
		while (my ($key, $val) = each %{$self->{'dico'}}) {
			$var =~s/$key/$val/ig;
		}

#		warn "DEBUG: Dict::substitute value = '$var'\n";
	}

return $var ;
}


1;