store filter (no tests for it, though!)

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@798 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input/Test.pm b/lib/WebPAC/Input/Test.pm
index af64475..52b9ce3 100644 (file)
--- a/lib/WebPAC/Input/Test.pm
+++ b/lib/WebPAC/Input/Test.pm
@@ -53,8 +53,12 @@ Setup optional size
        },
   }
 
+C<filter> will be assigned to C<$WebPAC::Input::Test::filter>
+
 =cut
 
+our $filter;
+
 sub new {
        my $class = shift;
        my $self = {@_};
@@ -62,6 +66,8 @@ sub new {
 
        my $arg = {@_};
 
+       $filter = $arg->{filter};
+
        $self->_get_logger()->info("mocking Test database with args = ", dump($arg));
 
        $self ? return $self : return undef;
@@ -74,7 +80,7 @@ Return record with ID C<$mfn> from database
   my $rec = $isis->fetch_rec( $mfn );
 
 Second argument, C<filter_coderef> will be assigned to
-C<WebPAC::Input::Test::filer_coderef>.
+C<$WebPAC::Input::Test::filer_coderef>
 
 =cut