lib/Text/Tradition/Store.pm

   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;