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

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