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	# -- 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;