sub AUTOLOAD {

    my $self      = shift;
    my $attribute = $AUTOLOAD;

    $method =~ s/.*:://;
    if ( length($method) != 0 ) {
	if ( @_ > 1) {
	    return $self->STORE($attribute, @_);
	} else {
	    return $self->FETCH($attribute);
	}
    } else {
        croak "No such object attribute referenced by name '"
	    . $attribute
	    . ' to provide ";
    }

}