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 |
9 |
|
## disabled autovivifying of arguments as attributes |
10 |
|
## |
11 |
## Revision 1.17 2003/05/13 07:58:49 joko |
## Revision 1.17 2003/05/13 07:58:49 joko |
12 |
## fix: die if methodname is empty |
## fix: die if methodname is empty |
13 |
## fixes to log-string |
## fixes to log-string |
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; |
250 |
} |
} |
251 |
#=cut |
#=cut |
252 |
|
|
253 |
|
=pod |
254 |
if (!$methodname) { |
if (!$methodname) { |
255 |
die("Methodname is not defined!"); |
die("Methodname is not defined!"); |
256 |
return; |
return; |
257 |
} |
} |
258 |
|
=cut |
259 |
|
|
260 |
#print "$methodname - 3", "\n"; |
#print "$methodname - 3", "\n"; |
261 |
|
|