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	#################################
2	#
3	# $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	#
10	#################################
11
12	package Data::Storage::Locator;
13
14	use strict;
15	use warnings;
16
17	# get logger instance
18	my $logger = Log::Dispatch::Config->instance;
19
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