$pkg = ref $pkg if ref $pkg;
my $self = bless {call => $call}, $pkg;
dbg("create $pkg with $call") if isdbg('routelow');
# add in all the dxcc, itu, zone info
$pkg = ref $pkg if ref $pkg;
my $self = bless {call => $call}, $pkg;
dbg("create $pkg with $call") if isdbg('routelow');
# add in all the dxcc, itu, zone info