Changeset 138

Timestamp:

12/13/05 21:52:21 (18 years ago)

Author:

thauvin

Message:

• transform comment to pod doc

File:

• trunk/soft/ObsData/ObsData/Repository.pm (modified) (1 diff, 1 prop)

trunk/soft/ObsData/ObsData/Repository.pm

@@ -18 +18 @@
 =head2 ObsData::Repository
 
-=head3 new
+=head3 new($parent, %param)
 
 Create a new ObsData::Repository object
 
+=over 4
+
+=item $parent
+
+A ObsData::Repository to take information
+
+=item %param
+
+A list of paramter to set in new object:
+
+=over 4
+
+=item datatype 
+
+If set, only this datatype will be checked
+
+=item obs
+
+The obsveratory where data come from, informationnal only
+
+=item dir
+
+The based directory where archive are located
+
+=item glob
+
+Apply this glob to search files in dir
+
+=item statusfile
+
+The file where status info should be written
+
+=item status
+
+The Config::IniFiles object
+
+=back
+
+=back
+
 =cut
 
 sub new {
-    my ($class, $infos, %param) = @_;
-
-    my $or = { %$infos };
+    my ($class, $parent, %param) = @_;
+
+    my $or = { %$parent };
     foreach (keys %param) {
         $or->{$_} = $param{$_};
     }
     
-    # $infos->
-    # obsdata ObsData object
     $or->{obsdata} or die "Error #1de8d015, please insult programmer";
-    # datatype search directly fot it
-    # obs station, informationnal only
-    # statusfile
-    # status Config::IniFile object to store extraction info
-    # dir based directory where archive are located
     $or->{dir} or die "No dir given";
     -d $or->{dir} or return undef;
-    # patern glob() over file
     
     $or->{status} ||= new Config::IniFiles(