sub new {
      my $proto = shift;
      my $class = ref($proto) || $proto;
      my $self  = $class->SUPER::new(@_);
      bless $self, $class;
      # do other stuff here for the child object...
      return $self;
   }

##</code><code>##

   sub reset {
      my $self = shift;
      my $class = ref($self) || $self;
      $class->SUPER::reset(@_);
      
      $self->setMatchMethod(\&multiline_match);
      
      return $self;
   }