sub AUTOLOAD {

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

    $method =~ s/.*:://;

    my %session = Foo($self);

    if ( @_ > 1) {
	return $session{$attribute} = $_[0];
    } else {
	return $session{$attribute};
    }
    
}