2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.19 2003/06/25 22:53:58 joko |
6 |
|
## don't disconnect automagically |
7 |
|
## |
8 |
## Revision 1.18 2003/06/06 03:40:57 joko |
## Revision 1.18 2003/06/06 03:40:57 joko |
9 |
## disabled autovivifying of arguments as attributes |
## disabled autovivifying of arguments as attributes |
10 |
## |
## |
160 |
# handle meta data |
# handle meta data |
161 |
#my $metainfo = $self->getMetaInfo($class); |
#my $metainfo = $self->getMetaInfo($class); |
162 |
my $metainfo = $self->getMetaInfo(); |
my $metainfo = $self->getMetaInfo(); |
163 |
if (!$metainfo->{disconnectMethod}) { $metainfo->{disconnectMethod} = 'disconnect'; } |
#if (!$metainfo->{disconnectMethod}) { $metainfo->{disconnectMethod} = 'disconnect'; } |
164 |
# type? |
# type? |
165 |
$invocant =~ s/Data::Storage::Handler:://; |
$invocant =~ s/Data::Storage::Handler:://; |
166 |
$metainfo->{type} = $invocant; |
$metainfo->{type} = $invocant; |