/[webpac2]/trunk/lib/WebPAC/Input/Test.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input/Test.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 797 by dpavlin, Sun Feb 4 13:28:30 2007 UTC revision 798 by dpavlin, Sun Feb 4 13:31:38 2007 UTC
# Line 53  Setup optional size Line 53  Setup optional size
53          },          },
54    }    }
55    
56    C<filter> will be assigned to C<$WebPAC::Input::Test::filter>
57    
58  =cut  =cut
59    
60    our $filter;
61    
62  sub new {  sub new {
63          my $class = shift;          my $class = shift;
64          my $self = {@_};          my $self = {@_};
# Line 62  sub new { Line 66  sub new {
66    
67          my $arg = {@_};          my $arg = {@_};
68    
69            $filter = $arg->{filter};
70    
71          $self->_get_logger()->info("mocking Test database with args = ", dump($arg));          $self->_get_logger()->info("mocking Test database with args = ", dump($arg));
72    
73          $self ? return $self : return undef;          $self ? return $self : return undef;
# Line 74  Return record with ID C<$mfn> from datab Line 80  Return record with ID C<$mfn> from datab
80    my $rec = $isis->fetch_rec( $mfn );    my $rec = $isis->fetch_rec( $mfn );
81    
82  Second argument, C<filter_coderef> will be assigned to  Second argument, C<filter_coderef> will be assigned to
83  C<WebPAC::Input::Test::filer_coderef>.  C<$WebPAC::Input::Test::filer_coderef>
84    
85  =cut  =cut
86    
Legend:
Removed from v.797  
changed lines
  Added in v.798
  ViewVC Help
Powered by ViewVC 1.1.26