WAIT/Table/Handle.pm

#                              -*- Mode: Perl -*- 
# $Basename: Handle.pm $
# $Revision: 1.1 $
# Author          : Ulrich Pfeifer
# Created On      : Mon May 31 15:53:55 1999
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Mon May 31 15:54:22 1999
# Language        : Perl

package WAIT::Table::Handle;
use Carp;
use strict;

sub new {
  my ($type, $database, $name) = @_;
  bless [$database, $name], $type;
}

sub database {shift->[0]}

sub name {shift->[1]}

sub table {
  my $self = shift;
  $self->database->{tables}->{$self->name};
}

sub DESTROY {}

sub AUTOLOAD {
  my $func = $WAIT::Table::Handle::AUTOLOAD;
  $func =~ s/.*:://;
  my $self = $_[0];
  my ($database, $name) = @$self;
  # warn "database[$database]name[$name]func[$func]\@_[@_]";
  if (defined $database->{tables}->{$name}) {
    if ($func eq 'drop') {
      $database->drop_table(name => $name);
      undef $_[0];
      1;
    } else {
      shift @_;
      if ($func eq 'open') {
        $database->{tables}->{$name}->$func(mode => $database->{mode}, @_);
      } else {
        $database->{tables}->{$name}->$func(@_);
      }
    }
  } else {
    croak("Invalid handle.
DEBUG: func[$func] self[$self] database[$database]\n");
  }
}


1;
1	dpavlin	106	# -- Mode: Perl --
2			# $Basename: Handle.pm $
3			# $Revision: 1.1 $
4			# Author : Ulrich Pfeifer
5			# Created On : Mon May 31 15:53:55 1999
6			# Last Modified By: Ulrich Pfeifer
7			# Last Modified On: Mon May 31 15:54:22 1999
8			# Language : Perl
9
10			package WAIT::Table::Handle;
11			use Carp;
12			use strict;
13
14			sub new {
15			my ($type, $database, $name) = @_;
16			bless [$database, $name], $type;
17			}
18
19			sub database {shift->[0]}
20
21			sub name {shift->[1]}
22
23			sub table {
24			my $self = shift;
25			$self->database->{tables}->{$self->name};
26			}
27
28			sub DESTROY {}
29
30			sub AUTOLOAD {
31			my $func = $WAIT::Table::Handle::AUTOLOAD;
32			$func =~ s/.*:://;
33			my $self = $_[0];
34			my ($database, $name) = @$self;
35			# warn "database[$database]name[$name]func[$func]\@_[@_]";
36			if (defined $database->{tables}->{$name}) {
37			if ($func eq 'drop') {
38			$database->drop_table(name => $name);
39			undef $_[0];
40			1;
41			} else {
42			shift @_;
43			if ($func eq 'open') {
44			$database->{tables}->{$name}->$func(mode => $database->{mode}, @_);
45			} else {
46			$database->{tables}->{$name}->$func(@_);
47			}
48			}
49			} else {
50			croak("Invalid handle.
51			DEBUG: func[$func] self[$self] database[$database]\n");
52			}
53			}
54
55
56			1;