package Xot::Index::Field; use base Xot::Accessors; Xot::Index::Field->plain(qw(name index field)); sub init { my ($self, $index, $twig) = splice @_, 0, 3; my $name = $twig->att('name'); $self->name($name) if $name; $self->index($index); $self->field($index->table->field($name)); $self->twig($twig); } 1;