package Observer1;
use strict;
use base qw(Observer);

sub new {
  my $class = shift;
  my $self = {};
  bless $self, $class;
}
sub update {
  my $self = shift;
  my $o = shift;
  my $value = $o->getValue();
}
1;