1 # TODO: Implement 'stale' checks, so that there is no need to explicitly
2 # write out a record, before closing.
4 package Debbugs::DBase::Log;
11 # $self->{LOG} = new FileHandle;
12 # $self->{AGE} = undef;
13 # $self->{PEERS} = [];
22 my ($char, $type, $class) = (shift, shift, shift);
23 $logClass{ $char } = $class;
24 $logType{ $char } = $type;
30 my ($self, $handle) = (shift, shift);
31 foreach (keys %$self) {
36 my ($char, $class, $type) = ($_, $logClass{ $_ }, $logType{ $_ });
46 if( defined($class) ) {
47 print "found handler $type for $char\n";
48 my $log = $class->new($msg);
50 my @log = $self->{log};
53 print "undefined handler for $char\n";
60 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
62 # set the version for version checking
67 %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
69 # your exported package globals go here,
70 # as well as any optionally exported functions