sub AUTOLOAD {
    my ($self, $newval) = @_;
    
    $AUTOLOAD =~ /.*::get(_\w+)/
        and $self->_accessible($1)
        and return $self->{$1};