File Coverage

blib/lib/WWW/Marvel/Config/File.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	2	2	100.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	0	3	0.0
total	33	40	82.5

package WWW::Marvel::Config::File;
use strict;
use warnings;
use base qw/ WWW::Marvel::Config /;
use Carp;
use Config::Tiny;

my $DEFAULT_CONFIG_FILENAME = 'marvel.conf';

sub new {
	my ($class, $config_filename) = @_;

	my $self = bless {}, $class;

	$config_filename //= $self->get_default_config_filename();
	my $cfg = Config::Tiny->read( $config_filename )
		or croak sprintf("problem with '%s' config: %s", $config_filename, Config::Tiny->errstr);
	$self->{'config_filename'} = $config_filename;

	$self->_set_keys( $cfg->{auth} );
	return $self;
}

sub get_default_config_filename { $DEFAULT_CONFIG_FILENAME }

sub get_config_filename { shift->{'config_filename'} }

1;