sub community {
my $self = shift;
$self->{'community'} = new Community($self);

}


##</code><code>##


sub new {

my($class, $session) = @_
my $self = { };
bless($self, $class);
$self->{'session'} = $session;

}

##</code><code>##

Attempt to free unreferenced scalar !