sub new
{
- my ($pkg, $call) = @_;
+ my $pkg = shift;
+ my $call = shift;
+
$pkg = ref $pkg if ref $pkg;
my $self = bless {call => $call}, $pkg;
return @out;
}
+sub _haslist
+{
+ my $self = shift;
+ my $field = shift;
+ my @out;
+ my $call = shift;
+ my $r = grep $_->{call} eq $call, @{$self->{$field}};
+ dbg(ref($self) . " $call is " . $r?'in':'NOT in' . " $self->{call}\->\{$field\}") if isdbg('routelow');
+}
+
sub is_empty
{
my $self = shift;
# recursion detector
if ((DXChannel::get($self->{call}) && $level > 1) || grep $self->{call} eq $_, @$seen) {
$line .= ' ...';
- push @out, $line;
+# push @out, $line;
return @out;
}
push @$seen, $self->{call};