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

sub new {
   my ($class, @args) = @_;
   my $self = { MODIFIED => 0,
                TYPE => $args[0],
              };
   bless $self, $class
}

sub modified { $_[0]->{MODIFIED} }