# declare stuff package stuff here ...
use WeakRef;

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