1 # TODO: Implement 'stale' checks, so that there is no need to explicitly
2 # write out a record, before closing.
4 package Debbugs::DBase::LogEntry;
11 # $self->{LOG} = new FileHandle;
12 # $self->{AGE} = undef;
13 # $self->{PEERS} = [];
15 $self->{Load} = &Load;
24 my ($self, $handle) = (shift, shift);
25 foreach (keys %$self) {
30 my ($char, $class, $type) = ($_, $logClass{ $_ }, $logType{ $_ });
40 if( defined($class) ) {
41 print "found handler $type for $char\n";
42 my $log = $class->new($msg);
44 my @log = $self->{log};
47 print "undefined handler for $char\n";
54 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
56 # set the version for version checking
61 %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
63 # your exported package globals go here,
64 # as well as any optionally exported functions