4 # This is the new fundamental protocol engine handler
8 # Copyright (c) 2004 Dirk Koopman G1TLH
18 # we expect all thingies to be subclassed
28 # send it out in the format asked for, if available
36 } elsif ($chan->isa('DXChannel')) {
40 # generate the line which may (or not) be cached
42 if (my $ref = $thing->{class}) {
43 push @out, ref $ref ? @$ref : $ref;
46 my $sub = "gen_$class";
47 push @out, $thing->$sub() if $thing->can($sub);
49 $chan->send(@out) if @out;