-# create a new connection object [$obj = Connect->new($call, $msg_conn_obj, $user_obj)]
-sub new
-{
- my ($pkg, $call, $conn, $user) = @_;
- my $self = {};
-
- die "trying to create a duplicate Connect for call $call\n" if $connects{$call};
- $self->{call} = $call;
- $self->{conn} = $conn;
- $self->{user} = $user;
- $self->{t} = time;
- $self->{state} = 0;
- bless $self, $pkg;
- return $connects{$call} = $self;
-}