sub classvar {
    my $self = shift;
    $self->{classvar} = shift if @_;
    return $self->{classvar};
}