File Coverage

blib/lib/Template/Plugin/Config/General.pm

Criterion	Covered	Total	%
statement	18	29	62.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	6	8	75.0
pod	1	2	50.0
total	25	45	55.5

#============================================================= -*-Perl-*-
#
# Template::Plugin::Config::General
#
# DESCRIPTION
#   Wrapper around Config::General module
#
# AUTHOR
#   Igor Lobanov
#   http://www.template-toolkit.ru/
#
# COPYRIGHT
#   Copyright (C) 2005 Igor Lobanov.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
#============================================================================

package Template::Plugin::Config::General;

use strict;
use vars qw( $VERSION );
use Template::Plugin;
use base qw( Template::Plugin );
use Template::Exception;
use Config::General;

$VERSION = sprintf("%d.%02d", q$Revision: 0.01 $ =~ /(\d+)\.(\d+)/);

my $EXCEPTION_TYPE = 'ConfigGeneral';

sub new {
	my ( $class, $context, $options ) = @_;
	$options ||= {};
	# in template we use parameters without leading -
	map { $options->{'-' . $_} = $options->{$_} unless ( /^-/ ); } keys %$options;
	my $obj;
	eval '$obj = new Config::General( %$options )';
	$@ and die ( Template::Exception->new( $EXCEPTION_TYPE, $@ ) );
	bless {
		_CONTEXT	=> $context,
		_OBJ		=> $obj,
		_OPTIONS	=> $options,
	}, $class;
}

sub getall {
	my $self = shift;
	my %hash = $self->{_OBJ}->getall();
	return \%hash;
}

1;

__END__