1 |
## -------------------------------------------------------------------------------- |
2 |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
5 |
## -------------------------------------------------------------------------------- |
6 |
|
7 |
|
8 |
package Data::Storage::Handler::Files; |
9 |
|
10 |
use strict; |
11 |
use warnings; |
12 |
|
13 |
use base ("Data::Storage::Handler::Abstract"); |
14 |
|
15 |
use Data::Dumper; |
16 |
#use Data::Storage::Result::Files; |
17 |
|
18 |
# get logger instance |
19 |
my $logger = Log::Dispatch::Config->instance; |
20 |
|
21 |
|
22 |
sub getMetaInfo { |
23 |
my $self = shift; |
24 |
$logger->debug( __PACKAGE__ . "->getMetaInfo()" ); |
25 |
return; |
26 |
return { |
27 |
'disconnectMethod' => 'disconnect', |
28 |
}; |
29 |
} |
30 |
|
31 |
sub connect { |
32 |
my $self = shift; |
33 |
#$self->{COREHANDLE} = $self; |
34 |
#$self->{COREHANDLE} = 1; |
35 |
} |
36 |
|
37 |
sub getChildNodes { |
38 |
my $self = shift; |
39 |
#my @nodes; |
40 |
#print "======\n"; |
41 |
$logger->debug( __PACKAGE__ . "->getChildNodes()" ); |
42 |
#print Dumper($self->{locator}); |
43 |
return $self->{locator}->{files}; |
44 |
} |
45 |
|
46 |
sub getFileByName { |
47 |
my $self = shift; |
48 |
my $name = shift; |
49 |
return $self->{locator}->{files}->{$name}; |
50 |
} |
51 |
|
52 |
1; |