--- nfo/perl/libs/Data/Query/Filter/Regexp.pm	2003/03/27 15:31:03	1.4
+++ nfo/perl/libs/Data/Query/Filter/Regexp.pm	2003/05/13 07:45:21	1.5
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Regexp.pm,v 1.4 2003/03/27 15:31:03 joko Exp $
+##  $Id: Regexp.pm,v 1.5 2003/05/13 07:45:21 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Regexp.pm,v $
+##  Revision 1.5  2003/05/13 07:45:21  joko
+##  now returns report
+##
 ##  Revision 1.4  2003/03/27 15:31:03  joko
 ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
 ##
@@ -57,8 +60,7 @@
   
   # try to load filter-declaration from configuration scope inside perl-module (yes - it's already abstracted out there!)
   $self->{declaration} = DesignPattern::Object->fromPackage($self->{module});
-#print Dumper($self->{declaration});
-  
+  #print Dumper($self->{declaration});
 
   # the regexp-object which does the hard work for us ;-)
   $self->{regexp} = Regexp::Group->new(
@@ -68,6 +70,7 @@
     'patterns' => $self->{declaration}->patterns(),
     'coderefs' => $self->{declaration}->coderefs(),
     'verbose' => 1,
+    'LOG_VERBOSE' => 0,
   );
   
 }
@@ -79,7 +82,7 @@
 
         #print "cb: $coderef", "\n";
   
-  my $result = $self->{regexp}->scan($steps, $coderef);
+  $self->{regexp}->scan($steps, $coderef);
 
   # configure tracing
     # respects additional trace-options passed to _trace-method
@@ -92,7 +95,7 @@
   #$self->trace('matches after Regexp::Group->scan', $self->{regexp}->getMatches(), 1, undef, { tag => '', exit => 0 });
   #$self->trace('results after Regexp::Group->scan', $self->{regexp}->getResults(), 1, undef, { tag => '', exit => 0 });
   
-  return $result;
+  return $self->{regexp}->get_report();
 }
 
 sub index {