[scpubgit/stemmatology.git] / base / lib / Text / Tradition / Store.pm

package Text::Tradition::Store;
use Moose;
use Class::Load ();
extends 'KiokuDB';

has resolver_class =>
  ( is => 'rw', isa => 'Str', default => 'KiokuDB::TypeMap::Resolver' );
has resolver_constructor =>
  ( is => 'rw', isa => 'Str|CodeRef', default => 'new' );

override _build_typemap_resolver => sub {
  my ($self) = @_;
  my $rclass = $self->resolver_class;
  Class::Load::load_class($rclass);
  my $meth = $self->resolver_constructor;
  return $rclass->$meth;
};

1;
Commit	Line	Data
f3f26624	1	package Text::Tradition::Store;
	2	use Moose;
	3	use Class::Load ();
	4	extends 'KiokuDB';
	5
	6	has resolver_class =>
	7	( is => 'rw', isa => 'Str', default => 'KiokuDB::TypeMap::Resolver' );
	8	has resolver_constructor =>
	9	( is => 'rw', isa => 'Str\|CodeRef', default => 'new' );
	10
	11	override _build_typemap_resolver => sub {
	12	my ($self) = @_;
	13	my $rclass = $self->resolver_class;
	14	Class::Load::load_class($rclass);
	15	my $meth = $self->resolver_constructor;
	16	return $rclass->$meth;
	17	};
	18
	19	1;