sub accessor {
    my $self = shift;
    $self -> {key} = shift if @_;
    $self -> {key}
}