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; |