sub name {
    @_ > 1 and croak "Too many arguments for name";
    my $self = shift;
    return @_ ? $self->{name} = shift : $self->{name};
}