File Coverage

lib/Class/StorageFactory.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	38	38	100.0

package Class::StorageFactory;

use strict;
use warnings;

use vars '$VERSION';
$VERSION = '1.0';

use Carp ();

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

	for my $attribute (qw( storage type ))
	{
		Carp::croak( "No $attribute specified" ) unless $args{$attribute};
	}

	bless \%args, $class;
}

sub storage
{
	my $self = shift;
	return $self->{storage};
}

sub type
{
	my $self = shift;
	return $self->{type};
}

sub fetch
{
	Carp::croak( 'Unimplemented method fetch called in parent class' );
}

sub store
{
	Carp::croak( 'Unimplemented method store called in parent class' );
}

1;
__END__