--- nfo/perl/libs/Data/Storage/Locator.pm	2002/10/10 03:43:53	1.1
+++ nfo/perl/libs/Data/Storage/Locator.pm	2002/10/17 00:06:16	1.2
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: Locator.pm,v 1.1 2002/10/10 03:43:53 cvsjoko Exp $
-#
+#  $Id: Locator.pm,v 1.2 2002/10/17 00:06:16 joko Exp $
+#
 #  $Log: Locator.pm,v $
+#  Revision 1.2  2002/10/17 00:06:16  joko
+#  + advanced constructor argument shift-in
+#
 #  Revision 1.1  2002/10/10 03:43:53  cvsjoko
 #  + new
 #
@@ -10,39 +13,44 @@
 #################################
 
 package Data::Storage::Locator;
-
-use strict;
-use warnings;
-
+
+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;
+
+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;