File Coverage

lib/Class/StorageFactory/YAML.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	47	47	100.0

package Class::StorageFactory::YAML;

use strict;
use warnings;

use base 'Class::StorageFactory';

use Carp ();
use YAML qw( LoadFile DumpFile );
use File::Spec::Functions 'catfile';

sub fetch
{
	my ($self, $id) = @_;
	my $storage     = $self->storage();
	my $type        = $self->type();

	Carp::croak( 'No id specified for fetch()' ) unless $id;

	my $file        = catfile( $storage, $id . '.yml' );

	Carp::croak( "No file found for id '$id'" ) unless -e $file;

	my $data        = LoadFile( $file );
	$type->new( $data );
}

sub store
{
	my ($self, $id, $object) = @_;
	my $storage              = $self->storage();

	Carp::croak( 'No id specified for store()' ) unless $id;

	my $path                 = catfile( $storage, $id . '.yml' );
	DumpFile( $path, $object->data() );
}

1;
__END__