package Product;
use strict ;
use base qw(ProductIF);

sub new {
  my $class = shift;
  my $self = {};
  my $i = shift;
  $self->{i} = $i;
  bless $self, $class;
}
sub getValue {
  my $self = shift;
  return $self->{i};
}
sub setValue {
  my $self = shift;
  my $i = shift;
  $self->{i} = $i;
}
1;