sub field {
    my $self = shift;
    $self->{field} = $_[0] if @_;
    ...
}