LWES/Listeners/EventPrintingListener.pm

   1 package LWES::Listeners::EventPrintingListener;
   2
   3 use strict;
   4
   5 use LWES::Listener;
   6
   7 @LWES::Listeners::EventPrintingListener::ISA =
   8   qw(LWES::Listener);
   9
  10 sub processEvent {
  11   my $self  = shift;
  12   my $event = shift;
  13
  14   print("$event->{'EventType'}\n{");
  15   foreach my $key (sort(keys(%{$event}))) {
  16     next if $key eq "EventType";
  17     my $value = $event->{$key};
  18     print("\t",$key," = ",$value,";\n");
  19   }
  20   print("}\n");
  21 }
  22
  23 1;