File Coverage

blib/lib/Config/Param/FileWorker.pm

Criterion	Covered	Total	%
statement	54	54	100.0
branch	4	8	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	7	7	100.0
total	76	82	92.6

package Config::Param::FileWorker;

use Config::Param;
use IO::File;
use Storable qw(dclone);

our $VERSION = '4.000006'; # updated by release script
$VERSION = eval $VERSION;

sub new
{
	my $class = shift;
	my $self = {};
	bless $self, $class;
	$self->{config} = shift;
	$self->{config}{nofinals} = 1;
	$self->{pardef} = shift;
	$self->{pars} = Config::Param->new($self->{config},$self->{pardef});
	$self->{defpars} = dclone($self->{pars}{param});
	return $self;
}

sub init_with_args
{
	my $self = shift;
	my $args = shift;
	$args = \@ARGV unless defined $args;
	$self->{pars}->parse_args($args);
	$self->{pars}->use_config_files();
	$self->{pars}->apply_args();
	my $good = (not @{$self->{pars}{errors}});
	$self->{pars}{errors} = [];
	return $good;
}

sub store_defaults
{
	my $self = shift;
	$self->{defpars} = dclone($self->{pars}{param});
}

sub load_defaults
{
	my $self = shift;
	$self->{pars}{param} = dclone($self->{defpars});
}

sub param
{
	my $self = shift;
	# Yes, it's a direct reference.
	return $self->{pars}{param};
}

sub load_file
{
	my $self = shift;
	my $file = shift;
	$self->{pars}->parse_file($file);
	my $good = (not @{$self->{pars}{errors}});
	$self->{pars}{errors} = [];
	return $good;
}

sub store_file
{
	my $self = shift;
	my $file = shift;
	$file = undef if defined $file and $file eq '';
	my $fh = \*STDOUT;
	if(defined $file)
	{
		$fh = IO::File->new();
		$fh->open($file, '>') or return 0;
	}
	$self->{pars}->print_file($fh);
	$fh->close();
	my $good = (not @{$self->{pars}{errors}});
	$self->{pars}{errors} = [];
	return $good;
}

1;

__END__