cgi-bin/LJ/AccessLogSink.pm

   1 package LJ::AccessLogSink;
   2 use strict;
   3 use warnings;
   4 use LJ::ModuleCheck;
   5
   6 sub new {
   7     die "this is a base class\n";
   8 }
   9
  10 sub log {
  11     my ($self, $rec) = @_;
  12     die "this is a base class\n";
  13 }
  14
  15 my $need_rebuild = 1;
  16 my @sinks = ();
  17
  18 sub forget_sink_objs {
  19     $need_rebuild = 1;
  20     @sinks = ();
  21 }
  22
  23 1;