File Coverage

blib/lib/Config/Tiny/Singleton.pm

Criterion	Covered	Total	%
statement	10	15	66.6
branch	1	2	50.0
condition			n/a
subroutine	3	4	75.0
pod			n/a
total	14	21	66.6

package Config::Tiny::Singleton;
use strict;

our $VERSION = 0.02;

use base qw|
	Config::Tiny
	Class::Singleton
	Class::Data::Inheritable
|;

__PACKAGE__->mk_classdata($_) for qw/file errstr/;

sub _new_instance {
	my $class = shift;
	my $file  = $class->file;
	unless($file){
		require Carp;
		Carp::croak "set file before creating instance.";
	}
	return $class->read($file);
}

sub _error {
	my($self, $msg) = @_;
	$self->errstr($msg);
	undef;
}

1;
__END__