LWES/Listener.pm

   1 package LWES::Listener;
   2
   3 #############################################################
   4 # Base Class for listeners
   5 #############################################################
   6 use strict;
   7
   8 # Constructor for all
   9 sub new {
  10   my $class = shift;
  11   $class = ref ( $class ) || $class;
  12   my $self = bless ({}, $class);
  13   $self -> {'class_def'} = $class."(".join(",",@_).")";
  14   $self -> initialize (@_);
  15   return $self;
  16 }
  17
  18 #############################################################
  19 # Fill out this method if you need to initialize things
  20 #############################################################
  21 sub initialize { }
  22
  23 #############################################################
  24 # Fill out this method to do stuff with each event
  25 #############################################################
  26 sub processEvent  {}
  27
  28 1;