/[wait]/branches/CPAN/lib/WAIT/Table/Independent.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 /branches/CPAN/lib/WAIT/Table/Independent.pm

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

revision 12 by unknown, Fri Apr 28 15:41:10 2000 UTC revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC
# Line 1  Line 1 
1  #                              -*- Mode: Perl -*-  #                              -*- Mode: Cperl -*-
2  # Independent.pm --  # Independent.pm --
3  # ITIID           : $ITI$ $Header $__Header$  # ITIID           : $ITI$ $Header $__Header$
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
# Line 21  sub fetch { Line 21  sub fetch {
21    my $self = shift;    my $self = shift;
22    my $key   = shift;    my $key   = shift;
23    my $name = $self->{name};    my $name = $self->{name};
24      
25    my %tp = $self->SUPER::fetch($key);    my %tattr = $self->SUPER::fetch($key);
26    if (%tp) {    if (%tattr) {
27      $tp{'_ee'} = "$name$key";      $tattr{'_ee'} = "$name$key";
28    }    }
29    %tp;    %tattr;
30  }  }
31    
32  sub insert {  sub insert {
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26