/[webpac2]/trunk/lib/WebPAC/Input.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.pm

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

revision 289 by dpavlin, Sun Dec 18 22:16:44 2005 UTC revision 290 by dpavlin, Sun Dec 18 23:10:02 2005 UTC
# Line 100  sub new { Line 100  sub new {
100          foreach my $subclass (qw/open_db fetch_rec init/) {          foreach my $subclass (qw/open_db fetch_rec init/) {
101                  my $n = $self->{module} . '::' . $subclass;                  my $n = $self->{module} . '::' . $subclass;
102                  if (! defined &{ $n }) {                  if (! defined &{ $n }) {
103                          $log->logwarn("missing implementation of $subclass");                          my $missing = "missing $subclass in $self->{module}";
104                            $log->logwarn($missing);
105                            $self->{$subclass} = sub { warn "$missing\n" };
106                  } else {                  } else {
107                          $self->{$subclass} = \&{ $n };                          $self->{$subclass} = \&{ $n };
108                  }                  }
Legend:
Removed from v.289  
changed lines
  Added in v.290
  ViewVC Help
Powered by ViewVC 1.1.26