package MyChild;
use strict;
use vars qw/@ISA/;
use MyMother;
@ISA = qw/MyMother/;

sub new {
   my ($class, @args) = @_;
   my $self = $class->SUPER::new(@args);
   bless $self, $class;
   if ($self->{TYPE} == 1) {
     $self->modified = sub { 0 };
   }
   $self;
}