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