Data/Storage/Locator.pm

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

package Data::Storage::Locator;

use strict;
use warnings;

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

sub new {
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  my $self = { @_ };
  $logger->debug( __PACKAGE__ . "->new(@_)" );
  return bless $self, $class;
}

sub native {
  my $self = shift;
  my $arg = shift;
  if ($arg) {
    $self->{native} = $arg;
    #$self->_native2abstract();
  } else {
    return $self->{native};
  }
}

sub _native2abstract {
  my $self = shift;
  
}

sub _abstract2native {
  my $self = shift;
}

1;
1	#################################
2	#
3	# $Id$
4	#
5	# $Log$
6	#
7	#################################
8
9	package Data::Storage::Locator;
10
11	use strict;
12	use warnings;
13
14	# get logger instance
15	my $logger = Log::Dispatch::Config->instance;
16
17	sub new {
18	my $invocant = shift;
19	my $class = ref($invocant) \|\| $invocant;
20	my $self = { @_ };
21	$logger->debug( __PACKAGE__ . "->new(@_)" );
22	return bless $self, $class;
23	}
24
25	sub native {
26	my $self = shift;
27	my $arg = shift;
28	if ($arg) {
29	$self->{native} = $arg;
30	#$self->_native2abstract();
31	} else {
32	return $self->{native};
33	}
34	}
35
36	sub _native2abstract {
37	my $self = shift;
38
39	}
40
41	sub _abstract2native {
42	my $self = shift;
43	}
44
45	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26