package Observable1;
use strict;
use base qw(Observable);

sub new {
  my $class = shift;
  my $self = {};
  $self->{value} = 0;
  bless $self, $class;
}
sub getValue {
  my $self = shift;
  return $self->{value};
}
sub setValue {
  my $self = shift;
  $self->{value} = shift;
  $self->notifyObservers();
}
1;