3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.26 2003/01/30 22:29:47 joko |
7 |
|
# + fixed module usage (removed dependency on 'libp.pm') |
8 |
|
# |
9 |
# Revision 1.25 2003/01/19 02:30:05 joko |
# Revision 1.25 2003/01/19 02:30:05 joko |
10 |
# + fix: modified call to '_initSchema' |
# + fix: modified call to '_initSchema' |
11 |
# |
# |
113 |
|
|
114 |
use Tangram; |
use Tangram; |
115 |
use Data::Dumper; |
use Data::Dumper; |
116 |
use libp qw( getNewPerlObjectByPkgName ); |
use DesignPattern::Object; |
117 |
use Data::Storage::Result::Tangram; |
use Data::Storage::Result::Tangram; |
118 |
use Data::Compare::Struct qw( isEmpty ); |
use Data::Compare::Struct qw( isEmpty ); |
119 |
use Data::Transform::Deep qw( object2hash ); |
use Data::Transform::Deep qw( object2hash ); |
120 |
use Data::Transform::Encode qw( var2utf8 ); |
use Data::Transform::Encode qw( var2utf8 ); |
121 |
|
|
|
|
|
122 |
# get logger instance |
# get logger instance |
123 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
124 |
|
|
138 |
my $self = shift; |
my $self = shift; |
139 |
$logger->debug( __PACKAGE__ . "->_initSchema()" ); |
$logger->debug( __PACKAGE__ . "->_initSchema()" ); |
140 |
#if (!$schema_tangram) { |
#if (!$schema_tangram) { |
141 |
my $obj = getNewPerlObjectByPkgName($self->{locator}->{schema}, { EXPORT_OBJECTS => $self->{locator}->{classnames}, want_transactions => $self->{locator}->{want_transactions} } ); |
#my $obj = getNewPerlObjectByPkgName($self->{locator}->{schema}, { EXPORT_OBJECTS => $self->{locator}->{classnames}, want_transactions => $self->{locator}->{want_transactions} } ); |
142 |
|
my $obj = DesignPattern::Object->fromPackage($self->{locator}->{schema}, { 'EXPORT_OBJECTS' => $self->{locator}->{classnames}, 'want_transactions' => $self->{locator}->{want_transactions} } ); |
143 |
$schema_tangram = $obj->getSchema(); |
$schema_tangram = $obj->getSchema(); |
144 |
#} |
#} |
145 |
if (!$schema_tangram) { |
if (!$schema_tangram) { |
317 |
$logger->debug( __PACKAGE__ . "->configureCOREHANDLE" ); |
$logger->debug( __PACKAGE__ . "->configureCOREHANDLE" ); |
318 |
|
|
319 |
#my $subLayer = $self->_getSubLayerHandle(); |
#my $subLayer = $self->_getSubLayerHandle(); |
320 |
|
#print Dumper($self); |
321 |
|
#exit; |
322 |
|
|
323 |
# apply configured modifications |
# apply configured modifications |
324 |
if (exists $self->{dbi}->{trace_level} && exists $self->{dbi}->{trace_file}) { |
if (exists $self->{dbi}->{trace_level} && exists $self->{dbi}->{trace_file}) { |
667 |
return $storage->dropDb(); |
return $storage->dropDb(); |
668 |
} |
} |
669 |
|
|
670 |
|
sub testAvailability { |
671 |
|
my $self = shift; |
672 |
|
my $storage = $self->_getSubLayerHandle(); |
673 |
|
return $storage->testAvailability(); |
674 |
|
} |
675 |
|
|
676 |
1; |
1; |
677 |
|
__END__ |