Data/Storage/Locator.pm

#################################
#
#  $Id: Locator.pm,v 1.1 2002/10/10 03:43:53 cvsjoko Exp $
#
#  $Log: Locator.pm,v $
#  Revision 1.1  2002/10/10 03:43:53  cvsjoko
#  + new
#
#
#################################

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;

  # get constructor arguments
  my @args = ();
  @_ && (@args = @_);
  $logger->debug( __PACKAGE__ . "->new( @args )" );

  my $self = { @_ };
  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	joko	1.2	# $Id: Locator.pm,v 1.1 2002/10/10 03:43:53 cvsjoko Exp $
4			#
5			# $Log: Locator.pm,v $
6			# Revision 1.1 2002/10/10 03:43:53 cvsjoko
7			# + new
8			#
9	cvsjoko	1.1	#
10			#################################
11
12			package Data::Storage::Locator;
13	joko	1.2
14			use strict;
15			use warnings;
16
17	cvsjoko	1.1	# get logger instance
18			my $logger = Log::Dispatch::Config->instance;
19	joko	1.2
20			sub new {
21			my $invocant = shift;
22			my $class = ref($invocant) \|\| $invocant;
23
24			# get constructor arguments
25			my @args = ();
26			@_ && (@args = @_);
27			$logger->debug( __PACKAGE__ . "->new( @args )" );
28
29			my $self = { @_ };
30			return bless $self, $class;
31			}
32
33			sub native {
34			my $self = shift;
35			my $arg = shift;
36			if ($arg) {
37			$self->{native} = $arg;
38			#$self->_native2abstract();
39			} else {
40			return $self->{native};
41			}
42			}
43
44			sub _native2abstract {
45			my $self = shift;
46
47			}
48
49			sub _abstract2native {
50			my $self = shift;
51			}
52
53			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26