2 # Base class for OO version of all protocol stuff
15 bellflag => '0,Bell?',
16 datetime => '0,Date/Time,atime',
17 dxcall => '0,DX Callsign',
18 dxcount => '0,DX Count',
19 freq => '0,Frequency',
20 fromcall => '0,From Callsign',
21 fromnode => '0,From Node',
22 hereflag => '0,Here?,yesno',
23 hops => '0,No. of hops',
24 nodelist => '0,Node List,parray',
25 origin => '0,Original Node',
26 privflag => '0,Private?,yesno',
27 rrflag => '0,RR Req.?,yesno',
29 sysopflag => '0,Sysop flag',
30 talkflag => '0,Talk mode',
32 tocall => '0,To Callsign',
33 tonode => '0,To Node',
34 version => '0,Node Version',
35 vianode => '0,Via Node',
36 wwvcount => '0,WWV Count',
44 my $self = bless { sort => $sort }, $pkg;
52 return if $name =~ /::DESTROY$/;
55 confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
56 *$AUTOLOAD = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}};