package Parent;
 use strict;
 use warnings;
 use Carp;
 use Data::Dumper;
 
 use Class::MethodMaker
 get_set => [ 
              { -read_cb => sub {  ## THIS ONE IS NOT WORKING .........                                
			my ($self,$val1,$val2) = shift;
                        $self->{val1} = $val1;
                        $self->{val2} = $val2;