/[wait]/trunk/lib/WAIT/Table/Handle.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/WAIT/Table/Handle.pm

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

revision 114 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 115 by dpavlin, Wed Jul 14 07:35:56 2004 UTC
# Line 9  Line 9 
9    
10  package WAIT::Table::Handle;  package WAIT::Table::Handle;
11  use Carp;  use Carp;
12    use Data::Dumper;
13  use strict;  use strict;
14    
15  sub new {  sub new {
# Line 32  sub AUTOLOAD { Line 33  sub AUTOLOAD {
33    $func =~ s/.*:://;    $func =~ s/.*:://;
34    my $self = $_[0];    my $self = $_[0];
35    my ($database, $name) = @$self;    my ($database, $name) = @$self;
36    # warn "database[$database]name[$name]func[$func]\@_[@_]";    #warn "DEBUG: database[$database]name[$name]func[$func]\@_[".Dumper(@_)."]";
37    if (defined $database->{tables}->{$name}) {    if (defined $database->{tables}->{$name}) {
38      if ($func eq 'drop') {      if ($func eq 'drop') {
39        $database->drop_table(name => $name);        $database->drop_table(name => $name);
# Line 47  sub AUTOLOAD { Line 48  sub AUTOLOAD {
48        }        }
49      }      }
50    } else {    } else {
51      croak("Invalid handle.      #confess("Invalid handle. DEBUG: func[$func] self[$self] database[$database]\n");
52  DEBUG: func[$func] self[$self] database[$database]\n");      carp "table $name doesn't exist";
53    }    }
54  }  }
55    
Legend:
Removed from v.114  
changed lines
  Added in v.115
  ViewVC Help
Powered by ViewVC 1.1.26