Storage/Handler/Files.pm

##    --------------------------------------------------------------------------------
##    $Id$
##    --------------------------------------------------------------------------------
##    $Log$
##    --------------------------------------------------------------------------------


package Data::Storage::Handler::Files;

use strict;
use warnings;

use base ("Data::Storage::Handler::Abstract");

use Data::Dumper;
#use Data::Storage::Result::Files;

# get logger instance
my $logger = Log::Dispatch::Config->instance;


sub getMetaInfo {
  my $self = shift;
  $logger->debug( __PACKAGE__ . "->getMetaInfo()"  );
  return;
  return {
    'disconnectMethod' => 'disconnect',
  };
}

sub connect {
  my $self = shift;
  #$self->{COREHANDLE} = $self;
  #$self->{COREHANDLE} = 1;
}

sub getChildNodes {
  my $self = shift;
  #my @nodes;
  #print "======\n";
  $logger->debug( __PACKAGE__ . "->getChildNodes()" );
  #print Dumper($self->{locator});
  return $self->{locator}->{files};
}

sub getFileByName {
  my $self = shift;
  my $name = shift;
  return $self->{locator}->{files}->{$name};
}

1;
1	joko	1.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;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26