3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.28 2003/02/20 20:20:26 joko |
7 |
|
# tried to get auto-disconnect working again - failed with that |
8 |
|
# |
9 |
# Revision 1.27 2003/01/31 06:30:59 joko |
# Revision 1.27 2003/01/31 06:30:59 joko |
10 |
# + enabled 'sendQuery' |
# + enabled 'sendQuery' |
11 |
# |
# |
44 |
# + fix: encapsulated object-loading inside an 'eval' |
# + fix: encapsulated object-loading inside an 'eval' |
45 |
# |
# |
46 |
# Revision 1.15 2002/12/05 13:55:21 joko |
# Revision 1.15 2002/12/05 13:55:21 joko |
47 |
# + now utilizing 'object2hash' instead of 'var_deref' |
# + now utilizing 'expand' instead of 'var_deref' |
48 |
# + played around with having fresh-objects - no progress.... |
# + played around with having fresh-objects - no progress.... |
49 |
# |
# |
50 |
# Revision 1.14 2002/12/05 09:40:30 jonen |
# Revision 1.14 2002/12/05 09:40:30 jonen |
117 |
use base ("Data::Storage::Handler"); |
use base ("Data::Storage::Handler"); |
118 |
use base ("Data::Storage::Handler::Abstract"); |
use base ("Data::Storage::Handler::Abstract"); |
119 |
|
|
120 |
use Tangram; |
|
121 |
use Data::Dumper; |
use Data::Dumper; |
122 |
|
use Tangram; |
123 |
|
|
124 |
use DesignPattern::Object; |
use DesignPattern::Object; |
125 |
use Data::Storage::Result::Tangram; |
use Data::Storage::Result::Tangram; |
126 |
use Data::Compare::Struct qw( isEmpty ); |
use Data::Compare::Struct qw( isEmpty ); |
127 |
use Data::Transform::Deep qw( object2hash ); |
use Data::Transform::Deep qw( expand ); |
128 |
use Data::Transform::Encode qw( var2utf8 ); |
#use Data::Transform::Encode qw( var2utf8 ); |
129 |
|
|
130 |
# get logger instance |
# get logger instance |
131 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
653 |
} |
} |
654 |
=cut |
=cut |
655 |
|
|
656 |
my $hash = object2hash($obj, $options); |
my $hash = expand($obj, $options); |
657 |
#$options->{cb}->{destroy}->($obj); |
#$options->{cb}->{destroy}->($obj); |
658 |
#$self->{_COREHANDLE}->unload($obj); |
#$self->{_COREHANDLE}->unload($obj); |
659 |
|
|
660 |
# convert values in hash to utf8 to be ready for (e.g.) encapsulation in XML |
# convert values in hash to utf8 to be ready for (e.g.) encapsulation in XML |
661 |
# now done in object2hash |
# now done in expand |
662 |
#var2utf8($hash) if ($options->{utf8}); |
#var2utf8($hash) if ($options->{utf8}); |
663 |
|
|
664 |
# old (wrong) attempts to get rid of used instances, if requested |
# old (wrong) attempts to get rid of used instances, if requested |
691 |
return $storage->testAvailability(); |
return $storage->testAvailability(); |
692 |
} |
} |
693 |
|
|
694 |
|
sub disconnect2 { |
695 |
|
my $self = shift; |
696 |
|
my $storage = $self->_getSubLayerHandle(); |
697 |
|
print "DISC!", "\n"; |
698 |
|
|
699 |
|
my $storage_ll = $storage->{_COREHANDLE}; |
700 |
|
$storage_ll->disconnect(); |
701 |
|
|
702 |
|
print Dumper($storage); |
703 |
|
exit; |
704 |
|
|
705 |
|
#$self->{_COREHANDLE} |
706 |
|
#$storage->disconnect(); |
707 |
|
$self->{dataStorageLayer}->disconnect(); |
708 |
|
} |
709 |
|
|
710 |
1; |
1; |
711 |
__END__ |
__END__ |