use DXUtil;
use DXM;
use DXDebug;
+use Carp;
use strict;
dx => '0,DX Spots,yesno',
);
-
# create a new channel object [$obj = DXChannel->new($call, $msg_conn_obj, $user_obj)]
sub alloc
{
foreach $line (@_) {
chomp $line;
- dbg('chan', "-> $sort $call $line\n");
- $conn->send_now("$sort$call|$line");
+ dbg('chan', "-> $sort $call $line\n") if $conn;
+ $conn->send_now("$sort$call|$line") if $conn;
}
$self->{t} = time;
}
foreach $line (@_) {
chomp $line;
- dbg('chan', "-> D $call $line\n");
- $conn->send_later("D$call|$line");
+ dbg('chan', "-> D $call $line\n") if $conn;
+ $conn->send_later("D$call|$line") if $conn;
}
$self->{t} = time;
}
return if $name =~ /::DESTROY$/;
$name =~ s/.*:://o;
- die "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+ confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
@_ ? $self->{$name} = shift : $self->{$name} ;
}