File Coverage

blib/lib/Benchmark/Featureset/StopwordLists/Config.pm

Criterion	Covered	Total	%
statement	24	53	45.2
branch	0	8	0.0
condition			n/a
subroutine	8	11	72.7
pod	1	3	33.3
total	33	75	44.0

package Benchmark::Featureset::StopwordLists::Config;

use strict;
use warnings;

use Config::Tiny;

use File::HomeDir;
use File::Slurp;

use Moo;

use Path::Class;

use Types::Standard qw/Any HashRef Str/;

has config =>
(
	default  => sub{return ''},
	is       => 'rw',
	isa      => Any,
	required => 0,
);

has config_file_path =>
(
	default  => sub{return ''},
	is       => 'rw',
	isa      => Any,
	required => 0,
);

has os_version =>
(
	default  => sub{return '! Debian'},
	is       => 'rw',
	isa      => Str,
	required => 0,
);

has section =>
(
	default  => sub{return ''},
	is       => 'rw',
	isa      => Str,
	required => 0,
);

our $VERSION = '1.03';

# -----------------------------------------------

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

	my($path) = Path::Class::file(File::HomeDir -> my_dist_config('Benchmark-Featureset-StopwordLists'), '.htbenchmark.featureset.stopwordlists.conf');

	$self -> read($path);

	$self -> get_os_version;

} # End of BUILD.

# -----------------------------------------------

sub get_os_version
{
	my($self) = @_;
	my($path) = Path::Class::file('/etc/debian_version');

	my($os_version);

	if (-f $path)
	{
		$os_version = 'Debian V ' . read_file($path);

		chomp($os_version);

		$self -> os_version($os_version);
	}

} # End of get_os_version.

# -----------------------------------------------

sub read
{
	my($self, $path) = @_;

	$self -> config_file_path($path);

	# Check [global].

	$self -> config(Config::Tiny -> read($path) );

	if (Config::Tiny -> errstr)
	{
		die Config::Tiny -> errstr;
	}

	$self -> section('global');

	if (! ${$self -> config}{$self -> section})
	{
		die "Config file '$path' does not contain the section [@{[$self -> section]}]\n";
	}

	# Check [x] where x is host=x within [global].

	$self -> section(${$self -> config}{$self -> section}{'host'});

	if (! ${$self -> config}{$self -> section})
	{
		die "Config file '$path' does not contain the section [@{[$self -> section]}]\n";
	}

	# Move desired section into config, so caller can just use $self -> config to get a hashref.

	$self -> config(${$self -> config}{$self -> section});

}	# End of read.

# --------------------------------------------------

1;

=pod

=head1 NAME

Benchmark::Featureset::StopwordLists::Config - Compare various stopword list modules

=head1 Synopsis

See L.

=head1 Description

L compares verious stopword list modules.

=head1 Methods

=head2 init()

For use by subclasses.

Sets default values for object attributes.

=head2 new()

For use by subclasses.

=head2 read()

read() is called by new(). It does the actual reading of the config file.

If the file can't be read, die is called.

The path to the config file is determined by:

	Path::Class::file(File::HomeDir -> my_dist_config('Benchmark-Featureset-StopwordLists'), '.htbenchmark.featureset.stopwordlists.conf');

During installation, you should have run scripts/copy.config.pl, which uses the same code, to move the config file
from the config/ directory in the disto into an OS-dependent directory.

The run-time code uses this module to look in the same directory as used by scripts/copy.config.pl.

=head1 Support

Email the author, or log a bug on RT:

L.

=head1 Repository

L.

=head1 Author

L was written by Ron Savage [e-mail]> in 2012.

Home page: L.

=head1 Copyright

Australian copyright (c) 2012, Ron Savage.

	All Programs of mine are 'OSI Certified Open Source Software';
	you can redistribute them and/or modify them under the terms of
	The Artistic License, a copy of which is available at:
	http://www.opensource.org/licenses/index.html

=cut