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	## --------------------------------------------------------------------------------
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